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History of the Alcor Pascal Compiler 



The Alcor Pascal compiler grew out of the desire four years ago 
to have a quality Pascal compiler for CP/M use. At that time 
there were no professional quality compilers on the popular CP/M 
operating systems that were very memory efficient. After two 
years of development a completely operational compiler emerged 
that saw several hundred thousand lines of Pascal code run 
through it. At this time it was decided that this compiler 
formed an ideal basis for the first professional quality Pascal 
compiler on the TRS80. Since a void existed, and Pascal's 
popularity was ever increasing, it was decided to enter the 
TRS80 market. 

A project team was formed and 1 1/2 man years later saw the 
Alcor Pascal compiler introduced as a commercial product. This 
underlines the amount of work required to take a completed 
system and make it a viable commercial software product. The 
Pascal compiler consists of 17,500 lines of assembly language 
runtime support and over 8,500 lines of Pascal source code. Not 
a minimal amount of work for a product in this price catagory ! 



The Difficulties of Integrating Languages 
With Different Operating System Environments 

Alcor Systems has taken a particular approach to integrating 
into operating systems environments. We Slave chosen to 
implement our products on many computers with DIFFERENT 
operating systems. This is a tough job that can become very 
time consuming, however users typically have preferential tastes 
for the various operating systems on different computers. To 
force an operating system such as O.C.S.D. ($600 and $800 per copy) 
on the user for the sake of portability is a poor compromise. 

It is true that operating systems will eventually become 
standardized, but the micro world is not quite there yet. An 
excellent example is CP/M. This is the most standardized 
operating system for Z-80 micros in existence, but as any TRS80 
/ CP/M user will tell you, CP/M is less sophisticated than many 
TRS80 operating systems such as LDOS, NEWDOS , DOSPLUS etc. In 
order to understand a few different disk formats requires 
extensive assembly language modification to the BIOS. Most 
TRS80 users are not used to this lack of sophistication. 
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Alcor Systems chose the TRSDOS operating systems as the lowest 
common denominator in the link to all TRS80 users. There are a 
number of other excellent operating systems available to the 
TRS80 user that are more sophisticated than TRSDOS. We have 
made a concerted effort to assure compatibility of our system 
with most of these operating systems. The simplest way to 
achieve this in a language system is to make documented 
operating system calls to perform the various functions. This 
is the approach that Alcor took in implementing Pascal on the 
TRS80. The primary difference between the various TRSDOS like 
operating systems from an application programs viewpoint is the 
way the operating system handles the end of file mark in the 
directory for the various files. The end result is that if a 
program is assembled or compiled, then loaded into a command 
file on one operating system and transferred to another, it may 
not execute correctly if it performs file I/O through the 
operating system. To alleviate this problem, Alcor modified the 
runtime support for the Pascal system so that it could be 
specially patched by the Alcor patch program to execute 
correctly on any of the supported TRSDOS like operating systems. 

Generally when the Pascal system is ported to execute on any 
operating system, all I/O routines in the runtime support must be 
be rewritten to conform to the calling sequence for I/O in the 
new operating system environment. This is a substantial job 
and requires a significant amount of work. 

Runtime Support 

Most TRS80 users have a vague feeling for the term "runtime 
support" as used by the typical systems programmer. Runtime 
support for the Pascal system refers to the modules linked to a 
users program by the linking loader. These modules consist of 
the interpreter and all of the necessary modules to perform I/O. 
This represents over 12,500 lines of assembly language code and 
in fact is one of the most difficult parts of a good Pascal 
compiler. The compiler itself is an 8,500 line Pascal source 
program that also has the 12,500 lines of runtime support code 
linked to it. In fact, the interpreter part of the runtime 
support is the part of the system that determines how efficient 
and fast the final program will execute. When the Pascal system 
is ported to another operating system, it is the I/O part of the 
runtime support that must be modified to conform to the new I/O 
subroutine calling sequences. 
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When target processors are changed, for efficient execution, 
the entire interpreter must be rewritten. This also Is a 
significant task. Many companies have not rewritten their 
Interpreters when transitioning to the now processors such as 
the 68000,8086 and 8088, They have simply translated the 
Interpreters assembly language to the "closest fit" assembly 
language of the new processor. This almost ALWAYS causes the 
interpreter to become extremely inefficient. This is because 
for maximum efficiency, the interpreter must use all of the 
hardware features of the new processor such as new registers, 
hardware stacks, etc. A fine example of this is Microsofts IBM 
Basic, Reports are now indicating that programs execute slower 
on the IBH $8088 processor) than the Z-80 counterpart. This is 
extremely interesting since the Intel 8088 is a fine 16 bit 
processor that is inherently faster and more efficient than the 
Z-80- This simply proven how Important it is to have language 
systems that are optimized for the processor and operating 
system. 



Pascal 1.2A Release Notes 



Over v i ew 

The changes between Pascal 1,2 and l,2A are primarily 
patches to correct reported bugs. There are enhancements to 
the text editor which allow printable characters not on the TRS80 
keyboard to be generated with clear key sequences. Pascal 1.2A 
has all the known bugs at this time corrected. Registered Pascal 
1.2 owners may apply patches to version 1.2 with the supplied 
Alcor patch program. 

Since this is not an upgrade requiring recompl lat Ion of the 
Pascal system, patches will be available in two different forms; 
printed (in this newsletter), or directly from Alcor on a 
diskette* The patches printed In this newsletter may be entered 
into a file with Blaise or any other editor that understands 
text or ASCII format files. This file is then used as the patch 
file for the Alcor patch program. There are a series of patches 
that should be applied to correct errors and several that are 
optional. If you do not wish to type them i n » you may send 
$8.00 + shipping to Alcor Systems (Please note your system 
serial number? for a diskette containing all of the patches 
entered into files and copies of the Alcor patch program setup 
to patch under the various supported operating systems. 
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(Ldos, Newdos,Dosplus,Trsdos ) This diskette also contains the 
program examples from this newsletter. 



***************** NOTICE TO PASCAL 1.2A OWNERS *************** 

The 1 . 2A release disks have already been corrected and require 
no patching of any kind to correct bugs. The only patching 
necessary is for Pascal operation under the different operating 
systems. See the supplied Patch instruction sheet. 

**************************************************************** 



Known Bugs in Pascal 1.2 
PASCAL COMPILER 
A. Sets 



<item> IN <set expression> 

The IN operator sometimes returns true when <item> is not a 
member of the set when the ordinal of the <item> is greater than 
the ordinal of the highest member actually present In the 
<set expression). 



Procedure calls 



When making procedure calls of the forms 

IF <expression> THEN <procedure call> else <statement> 

the compiler will incorrectly flag a syntax error if the procedur< 
has no parameters. 

C. Hexadecimal constants 



If hexadecimal constants are declared greater than 18000 
<hex 8000> the compiler incorrectly stores the value. 
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File of Char 



When a FILE OF <TYPE> is declared , and the generated file 
contains the control characters CR <|0!)>. LF <#0A>, TAB <|0B> 
and Control Z <tlA>, they will be treated like they are in a text 
file and cause special processing when the is file read by Pascal 
The correction causes them to be treated like any other 
character . 

Known Bugs In Release 1.2 
EDITOR 
ft, "RENAME FAILED CRASH" 



Under certain conditions that are highly operating system 
and data file dependent, upon exiting from the editor, a "RENAME 
FAILED" error flag will be displayed. This occasionally results 
in a file loss. This is caused by an improper filename termination 
in the file descriptor <no CR termination of filename string> 
by the editor runtime. 



Enhancements in Release 1.2A 
EDITOR 
A, I/O error detection and recovery 



An enhancement to allow for better I/O error correction and 
recovery has been made in the text editor. When a disk error 
has been detected, the message: 

10 ERROR 

followed by the operating system error code is displayed. You 
may type "Q" to allow the error to pass or any other key to cause 
* retry. 
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B- Screen update change 



In 1.2 when the cursor is at the bottom of the display and the 
enter key Is hit, the screen is completely cleared and rewritten. 
Release 1 . 2A causes the screen to scroll by sending a line feed to 
the screen driver. This increases the effective scroll rate. 

C. Character generation 



In 1.2A certain characters not available on the TRS80 keyboard 
may be generated by using the clear key sequences. They are: 

character 



Sequence 


clear 


1 


clear 


2 


clear 


3 


clear 


4 


clear 


5 


clear 


6 


clear 


7 



I t 
J - 

" -ft 

I 
) 

I ♦ 

/ 



D. Clear key definition 



An optional patch is available to allow the clear key to be 
redefined to the: Shift Down Arrow (Model I only) 
or to the: / key on the Model I or Model lit. 



More Information About The Alcor Patch program 

The Alcor patch program is used to patch Pascal system files 
utilizing a control file that contains information about the 
patch to be applied. The control file is like any text or 
character file. It contains special commands and checks to 
assure that the patches are correctly applied. It is not 
designed for general use to patch non Pascal files. The control 
file may be built by using any text editor that can create 
normal ASCII text files. (Blaise) 
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As supplied on diskette, the Alcor Pascal system requires a 
valid operating system to always be resident in drive 0. It 
may be one of the following: 

MODEL I 

* Trsdos 2.3, * Ldos 5.1, Newdos 2.0, Dosplus 3.3, 3.4 

MODEL III 

* Trsdos 1.3, Ldos 5.1, * Newdos 2 . , Dosplus 3.3, 3.4 

* - The Pascal system will operate properly as delivered on 

diskette without patching. The others require patching 
with tha Alcor patch program using the control files 
supplied on diskette. The Pascal system files should be 
patched under one of the "*" systems and then copied to 
the desired system format. 

Patch Command Format 
(Example) 

This patch will fix the rename failed error in the editor 

F, ED/CMD, ALCOR 1 

P, 5 ABE, 0B64, 0006, 10, 10, 06, 04, 03 ,10, 01 ,06, 00, 03, 22, 01 

P,5A9 4,0A4B,0005,4B,00,01,2 2,00,4B,12,02,F7,00 

C,5A99,04C0,0001,22 

W,E591 

E 

The M ; n character is used as a comment specifier. Any text to the 
right of the comment specifier is ignored by the patch program. 

The first data line of a patch file contains a file 
specification header: (Example) 

F, ED/CMD, ALCOR1 

"F" - File header prefix, (For /CMD files only) 

("0" for /OV1 /OV2 /OV3 /OV4 overlay files) 

B, ED/CMD B9 - The filename of the file to be patched. 

"ALC0R1" - Output prompt by patch program requesting the 

name of the diskette to be inserted into the drive. 

Lines 2 through N contain the actual patch information: 
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P" 


5A8E" 


0B64" 


0006" 


10,10 



( Example) 

P,5A8E,0B6 4, 0006, 10, 10, 06,04, 03, 10, 01, 06, 00, 03, 22, 01 

- Patch header prefix. 

- Address of change relative to load point of pgm, 

- Checksum for the line 

- Number of bytes to be changed 

- Old contents, new contents 

This line contains checksum information. This is used to assure 
that previous patches have been correctly applied. 
( Example) 

C,5A99,04C0,0001,22 

"C" - Checksum header prefix. 

"5A99" - Address of data to be checked 

"04C0" - Checksum of line 

"0001" - Number of bytes checked 

"22" - Expected contents of checked location 

This line is the command to execute the patch. 
( Example) 

W, 5284 

"W" - Write header prefix. 
"5284" - Checksum for entire patch 

The final line of the file. 
( Example) 



In general, multiple patches may be combined in a file. 
In this case, the "E" is placed at the end of the last patch 
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Special Notice about the Alcor Pascal Patch program 
IT IS RECOMMENDED THAT ALL PATCHING BE DONE UNDER TRSDOS 



The Alcor Patch program may be used to apply any patches to the 
system while operating under TRSDOS on the model I or III. This 
includes patching the system with the supplied conversion 
patches which allows the system to execute under the various 
supported operating systems such as LDOS, NEWDOS and DOSPLUS. 
After patching has been performed under the TRSDOS operating 
system, the Pascal system may then be copied to any of the ALCOR 
supported operating systems using the normal operating system 
utilities. 



IF YOU MUST PATCH WHILE EXECUTING UNDER ANY OF THE 
THE ALCOR SUPPORTED OPERATING SYSTEMS OTHER THAN TRSDOS 



Generally, if the Pascal system must be patched for execution 
under your computer and operating system combination, then 
the PATCH program should be patched first, This particular 
patch for the PATCH program may be applied while under ANY 
of the Alcor supported operating systems. 

The following patch may be entered into a text file with 
any legal filename. IE; SPECIAL/PAT You may use the 
text editor if creating this file under TRSDOS and copy it to 
the desired operating system. 



For Model I systems 

F, PATCH/CMD, ALCOR 
P f 0FAl,054E,0001,13,00 
P,0Bl6,0529,0001,00,03 
W,F589 

E 

For Model III systems 

F, PATCH/CMD, ALCOR 

P,0FA1,054E,0001,00,13 

P,0B16, 0529, 0001, 03,00 

W,F589 

E 
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Patches to Update 1.2 to 1 . 2A 



MODEL I 



IN STATEMENTS OF THE FORM: 

<ITEM> IN <SET EXPRESSION 

THE IN OPERATOR SOMETIMES RETURNS TRUE WHEN <ITEM> IS 

NOT A MEMBER OF THE SET WHEN THE ORDINAL OF <ITEM> IS 
GREATER THAN THE ORDINAL OF THE HIGHEST MEMBER ACTUALLY 
PRESENT IN THE <SET EXPRESSIONS 

IN THE PASCAL COMPILER, STATEMENTS OF THE FORM: 

IF <EXPRESSION> THEN <PROCEDURE CALL> ELSE <STATEMENT> 
THE COMPILER INCORRECTLY FLAGS A SYNTAX ERROR IF THE 
PROCEDURE CALL IS A CALL TO A PROCEDURE WITH NO PARAMETERS 

F, RUN/CMD, ALCOR1 

P,091F,0847,0003 P 6F,C3,26 P F8 P 00,7D 

P,2BFB,0D2F P 0006,FF P BA,FF,30 P FF,06,FF,6F,FF,26,FF,00 

P,2BFE,0FlC,0007 p FF,C3,FF,22,FF P 5B,FF,AF,FF,C3,FF,36,FF,5B 

W,DB6E 

• 

F, PASCAL/CMD, ALCORl 

P,091F,0842,0003 P 6F,C3,26,6C P 00 P D8 

P,866C P 0Dl9 P 0006,FF,BA,FF,30 P FF,06,FF,6F p FF,26,FF,00 

P,8672 P 0E91,0007,FF,C3,FF,22 P FF P 5B,FF,AF,FF,C3,FF,36,FF,5B 

P,2313 P 065C,0002 P 20,7F,20,41 

W,D5B8 

; 

F, LINKLOAD/CMD, ALCOR2 

P,09lF p 0839,0003,6F,C3,26,DF P 00,70 

P,1EBF P 0D60,0006,FF,BA,FF,30 P FF,06,FF,6F,FF,26,FF,00 

P,lEC5,0EDB p 0007,FF,C3,FF,22 p FF,5B,FF,AF p FF,C3,FF,36,FF,5B 

W,DB8F 

; 

F, PASCALB/CMD, ALCOR2 

P,09lF P 0BlB P 0003,6F,C3,26,47 p 00,78 

P,2647 P 0CDD,0006,FF P BA,FF,30,FF, 06 , FF, 6F, FF, 26 , FF, 00 

P,264D,0ECA,0007,FF,C3,FF,22,FF,5B,FF,AF,FF,C3 P FF,36,FF,5B 

P, 2443, 0667, 0002, 20 ,7F, 20, 41 

W,D5D7 

i PATCH TO FIX HEXADECIMAL CONSTANTS GREATER THAN 18000 

f 
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F, PASCALB/CMD, ALCOR2 

P,lFB8,059E,0001,3E,24 

P, 2443, 06 6B, 0002, 7F, 41, 41,20 

W,F3F7 

0, PASCAL/OV4, ALCOR2 

P, 2207, 057B, 0001, 7F,FF 

W.FA85 

F,PASCAL/CMD, ALCORl 

P,1E88,057E,0001,3E,24 

P, 2 3 13 , 06 60 , 0002, 7F, 4 1,4 1,20 

P,7BF1,05CA,0001,7F,FF 

W, EE58 

PATCH TO CORRECT PROCESSING OF FILE OF CHAR 
WHEN THE FILE CONTAINS CONTROL CHARACTERS 

F , PASCAL/CMD , ALCOR 1 

P,7A8A,08C4,000 3,9C,4D,5C,EC f 6D,0B 

P,86 7 9,0DG2,000 6,FF,10,FF,0C,FF,5C,FF ? 6D,FF, 27, FF,10 

P,86 7F,OD41,0006,FF,10,FF,4A,FF,OC,FF,00„FF,OB,FF,5C 

P,8685,0CFE,0006,FF,6F,FF,27,FF,42,FF,4D,FF,03,FF,F4 

W,CFFB 

O, PASCAL/OV4 ,ALCOR2 

P,20AO,08 7 4,000 3,9C ? 4D,5C,EC,6D,OB 

P,2C8F,0D4D,0006,FF, 10 , FF , 0C , FF , 5C , FF , 6D, FF , 27 , FF , 10 

P,2C95,OD17,0006,FF,10,FF,4A,FF,OC,FF,00,FF,OB,FF,5C 

P,2C9B,0D49,00 06,FF,6F,FF,2 7,FF,42,FF,4D,FF,0 3,FF,F4 

W,CFDF 

e 

? PATCH TO FIX THE OCCASIONAL "RENAME FAILED" ERROR IN 
; THE TEXT EDITOR 

F f ED/CMD, ALCORl 

P, 5 A8E,0B6 4, 0006, 10, 10, 6, 4, 3. 10, 01, 06, 00, 3, 22, 01 

P,5A9 4,OA4B,00 05,4B,00,01,22,00,4B,12,02,F7,00 

C,5A99,04CO,0001,22 

W,E591 

EDITOR PATCH TO ADD TRANSLATIONS FOR CHARACTERS 

NOT GENERATED BY THE TRS80 KEYBOARD (optional) 

F, ED/CMD, ALCORl 

P,46A7,084 9, 00 3,0 3, 4D f 8A,5A, 00, CD 

P,140 4,OBF9,0006,CD,10,BE,OA,62, 4A, 46 , 05 , EB, 00 , 21,5A 

P,140A, 0BD1,0006,A4, 31 ,62,22, 7E, 02 , 23 , 5B , A7 , 0C, 28 , 10 

P,1410,OBC7„00 06,lB,OA,B8,4A,28,05,07,00,5E,5A,16,32 

P,1416,0BAE,0 00 6,00,2 2,19,02,23,5D,!8,0C,F1, 10, 4E,0A 

P,141C,OBF5,0006,06 P 4A,0 0,05,03,00,DD,5A,5E,3 3,OA,2 2 
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P,14 22,0C2 4,0006,DD r 02, 56 , 5E, OB, OC, D5, 10 , 13 , OA, ED , 4A 
P,14 2 8,0BBF,0006,B0,05,C3,00,AE,5A,66,3 4,21,22,BB,02 
P,142E,0C42,0006,66,7B, 7E, OC, A7 , 10 , 28 , OA, 5C, 4 A, 21, 05 
P,14 3 4,0BB8,0006,99,00,62,5A,7E, 35 , A7 , 22 , 28 , 02 , 43 , 7D 
P,14 3A,0BB4,0006,B8,0C,28,10,O6,0A,ll,4A,O5,05,00,00 
P,14 40,0BE3,0006,19,5A,18,36,F3,22,2 3,02,E5,7C,DD,0C 
P,14 46,0C08,0006,5E,10,0A,0A,DD,4A,56,05,0B,00,13,5A 
P,14 4C,0C2C,0006,13,3 7,AF,22,21,02,BB,2F,66,0C,4E,03 
P,1452,0A57,O0O5,2 3,8A,06,OO,OO,4D,81,53,ED,32 
W, 5284 

; 

; PATCH TO INCREASE SPEED OF SCREEN UPDATE 

F, ED/CMD, ALCOR 1 

P,4 7 5A,08 60,0003,4A,4D,61,FA,02,CC 

P,14 5 7,0B7C,0006,B0,l2,El,F9,01,4A,04,Fl,00,01,81,03 

P,145D,0BD4,0006,ED,01,B0,00,21,03,C4,0A,66,00,F5,24 

P,1463,0BBC,0006,7E,22,23,17,A7,C8,28,00,12,11,4F,C8 

P,14 69,OBA6,0006,F1,00,81,02,06,01,00,OC,ED,11,BO,C8 

P,146F,0C2B,0006,DD,00,5E,66,0A,03,DD,01,56,00,0B,04 

P,14 75,OB8C,0006,D5,OC,13,11,12,C8,18,00,34,67,F1,02 

P,14 7B,0CBl,0006,18,lF,F2,0C,DD,12,6E,F9,0A,4A,DD,Fl 

P,14 81,0B61,0006,66,01,0B,0 3,E5,02,2 3,00,36,03,02 r 0A 

P, 148 7, 0B74, 0006, 23, 00, 36, 2 4, 3A, 22, 23, 17, 36, C8, 43, 00 

P,14 8D,0C0E,0006,18,11,1F,C8,DD,00,E5,02,E1,01,11,0C 

P, 14 9 3, 0B8C, 0006, 08, 11, 00, C8, CD, 00, E6, 66, 6 7, 03, 21, 01 

P,14 9 9,OBAC,0006,B8,00,66,04,11,OC,03,11,00,C8,CD,00 

P,149F,0CA9,0006,E6,6 7,67,02,DD,1E,6E,0C,0A,12,DD,F9 

P,14A5,0BF1,0006,66,4A,0B,F1,E5,01,36,03,40,0A,EB,00 

P,14AB,0C49,0006,CD,03,F8,0A,67,00,Dl,24,DD,22,E5,17 

P,14B1,0BDE,0006,E1,C8,CD,00,C7,11,66,C8,C3,00,D2,02 

P,14B7,0B95,0006,62,Ol,20,0C,3D,ll,2O,C8,00,00,14,66 

P,14BD,0C03,00O6,21,03,7C,01,14,0O,CD,04,5A,OC,13,ll 

P,14C3,0C3D,0006,D1,C8,00,00,C9,67,FD,02,DD,0A,E5,0C 

P,14C9,0C61,0006,C5,4A,D5,61,E5,02,E5,4D,DD,8E,E1,32 

P, 1804, 0567, 0001, AF,C9 

W,040D 

? 

f PATCH TO ALLOW RETRYS ON DISK ERRORS 

WHEN A DISK ERROR IS DETECTED, THE MESSAGE: 
1 IO ERROR: 

? FOLLOWED BY THE ERROR CODE IS DISPLAYED 
j YOU MAY TYPE "Q" TO ALLOW THE ERROR TO PASS 

OR ANY OTHER KEY TO RETRY 

F, ED/CMD, ALCOR1 

P,12 7A,08 5F,0003,FE,C3,1D,CF,20,66 

P,14CF,OCDO,0006,EB,FE,23,1D,7E,CA,A7,7E,28,64,15,F5 
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P,14D5,OC4D,0006,23,CD,E6,F7,lF,66,4F,FE f 06,51,00,28 

P,14DB,0C7B,O0O6,7E,04,FE,Fl,3A,C3,20,6E,lC,64,23,Fl 

P, 14 El , 09B8, 0004, 7E, Cl , FE , C3 , 4C , AA, 28,64 

P,1377, 0803, 0003, DD,C3, El, E5 ,20,66 

P, 14E5,0CB9,O0 06,0A,DD,FE,El,4 4,CA, 2 8 „ 7B , 0C , 6 5 , DD , F5 

P P 14EB,0CE5, 00 06, 36,CD,0E,F7 r lB,66,18,FE,lB,5l,DD,CA 

P,14Fl, 0C40, 0006, 36,C9,0E,5E,lA, Fl, 18 ,C3, 15,65, DD, 65 

P, 14 F7, 0CCB,O0 6,36,C5,0E,D5,lC,E5,18,DD,0F,E5,DD,FD 

P,14FD,OC8O,O0 06,5E,E5,O8,F5,DD,21,56,A0,09, 5E,7A,11 

P,150 3,0C2 5, 00 06, B3, OB, 2 8, 00, OB, CD, ED , E6 , BO , 67 , 3E, Fl 

P, 1509,0C26,0006,0D,CD,12,29,El,67,Dl,CD,Cl,49,DD,00 

P,150F, 0C9E, 0006,E1,FD,C9,E1,DD,DD,36,E1, 12 ,El,FF,Dl 

P f 1515,06 93,0002,18,Cl,F4,C9 

P,0CAO,OC0B,00 06,Dl,0D,El,49,D5, 4F, 5E, 20 , 2 3 , 4 5 , 56 , 52 

P,0CA6,0AC7,00O5,2 3,5 2,E3,4F,E5,52,D5,3A,C3,2 

P, OCC9,09E6,00 4,OE,F1,FE,C3,1A, 7F,2 8,6 5 

W, 34E4 

INTERNAL EDITOR PATCH 

F, ED/CMD, ALCOR1 

P,59 57,08 04,0003,12,4D,F5,5l,4A f B3 

P,OCAB,0C39,00 06, 4C,10,5D,02,Dl,58,Dl,12,El,F7,C5,22 

P,OCBl,OBC4,00 06,D5,OA,E5,68,01,20,00, 10, 01, 02, CD, 56 

P,OCB7,0C0 7,00 6,96,2B,60,42,EB, 21 , El , 07 , D5 , 10 , 7A, 02 

P,OCBD,OBFB,000 6,B3, 58,28,15, 44, 02, 01,lF f OO,E9 ,01, 12 

P,OCC3,OC9A,0006,CD,F5, 26 , 65 , 5E, 08 , FE, 4D , OD , 9 3 , 2 8 , 4C 

W,BB63 



Patches to update 1,2 to 1.2A 



MODEL III 



IN STATEMENTS OF THE FORM* 
<ITEM> IN <SET EXPRESSION> 

THE IN OPERATOR SOMETIMES RETURNS TRUE WHEN <ITEM> IS 

NOT A MEMBER OF THE SET WHEN THE ORDINAL OF <ITEM> IS 
GREATER THAN THE ORDINAL OF THE HIGHEST MEMBER ACTUALLY 
PRESENT IN THE <SET EXPRESSIONS 

IN THE PASCAL COMPILER, STATEMENTS OF THE FORM: 
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; IF <EXPRESSI0N> THEN <PROCEDURE CALL> ELSE <STATEMENT> 

I 

THE COMPILER INCORRECTLY FLAGS A SYNTAX ERROR IF THE 
? PROCEDURE CALL IS A CALL TO A PROCEDURE WITH NO PARAMETERS 

7 

F, RUN/CMD, ALCOR1 

P, 091 F, 08 4 7,0003, 6F,C3 , 26 ,F8 ,00 , 7D 

P,2BF8,0D2F,0006,FF,BA,FF,30,FF,06,FF,6F,FF,26,FF,00 
P,2BFE,OFlC,000 7,FF,C3,FF,22, FF , 5B, FF, AF , FF, C3 , FF , 36,FF,5B 
W,DB6E 
• 

F, PASCAL/CMD, ALCORl 

P,091F,08 42,000 3,6F,C3,26,6C,00,D8 

P,86 6C,0D19,0006,FF,BA,FF,30,FF,06,FF,6F,FF,26, FF,00 

P,867 2,0E91,000 7,FF,C3,FF,22,FF,5B,FF,AF,FF,C3,FF,36,FF,5B 

P, 2 313,065C, 0002, 20, 7F, 20, 41 

W,D5B8 

; 

F, LINKLOAD/CMD, ALCOR2 

P,091F,08 39,0003,6F,C3,26,DF,00,70 

P,1EBF,OD60,0006,FF,BA,FF,30,FF,06, FF, 6F , FF , 26 , FF, 00 

P,1EC5,OED8,0007,FF,C3,FF,2 2,FF,5B,FF,AF,FF,C3,FF,36,FF, 5B 

W,DB8F 

> 

F, PASCALB/CMD, ALCOR 2 

P, 091F,081B, 0003, 6F,C3, 26, 47,00,78 

P,26 4 7,0CDD,0006,FF,BA,FF,3O,FF,O6,FF,6F,FF,2 6,FF,00 

P,2 6 4D,0ECA,000 7,FF,C3,FF,22,FF,5B,FF,AF,FF,C3,FF,36,FF,5B 

P, 2 4 43, 06 67 ,0002, 20, 7 F, 20, 41 

W,D5D7 

; 

1 PATCH TO FIX HEXADECIMAL CONSTANTS GREATER THAN 18000 

; 

F, PASCALB/CMD, ALCOR2 
P,1FB8,059E,0001,3E,24 
P, 244 3, 06 6B, 0002, 7 F, 41,41,20 
W,F3F7 

O, PASCAL/OV4, ALCOR2 
P,2207,057B,0001,7F,FF 
W,FA85 

F , PASCAL/CMD , ALCOR I 
P,lE88,057E r 0001,3E,24 
P, 2 3 13, 0660, 0002, 7F, 41, 4 1, 20 
P,7BFl,O5CA,0O01,7F,FF 
W,EE58 
» 

? PATCH TO CORRECT PROCESSING OF FILE OF CHAR 
WHEN THE FILE CONTAINS CONTROL CHARACTERS 
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F , PASCAL/CMD , ALCORl 

P,7A8A,08C4, 00 3,9C,4D, 5C,EC,6D, OB 

P,86 79, 0DO2,0 06,FF, 10 ? FF,0C,FF, 5C, FF . 6D ? FF , 27 , FF, 10 

P,86 7F,0D41, 0006,FF, 10,FF,4A,FF,0C,FF,00,FF,0B,FF,5C 

P f 86 8 5,0CFE,O0 06,FF,6F,FF,2 7,FF,42,FF,4D,FF, 3,FF,F4 

W,CFFB 

O f PASCAL/OV4 ,ALCOR2 

P,20A0,08 7 4,000 3,9C,4D,5C,EC,6D,0B 

P,2C8F,OD4D,00 06,FF,10,FF,OC,FF,5C,FF,6D,FF,27,FF,10 

P f 2C9 5, ODl7,0006,FF,10,FF,4A,FF,OC,FF,OG,FF, 0B,FF,5C 

P,2C9B,OD49,0 006,FF,6F, FF, 27 , FF, 42 , FF, 4D,FF, 03, FF, F4 

W,CFDF 

PATCH TO FIX THE OCCASIONAL "RENAME FAILED" ERROR IN 
THE TEXT EDITOR 

F, ED/CMD, ALCORl 

P,5A8E,OB6 4,0006,10,10,06,04,0 3,10,01,06,00,03,2 2,01 

P,5A9 4 J OA4B,0005,4B s OO,01,22,OO r 4B,12 f 02,F7,00 

C,5A99,04CO,0001,22 

W,E591 

EDITOR PATCH TO ADD TRANSLATIONS FOR CHARACTERS 

NOT GENERATED BY THE TRS80 KEYBOARD (optional) 

F ( ED/CMD, ALCORl 

P,4 6A7,08 49,0 00 3,0 3,4D,8A,5A,00,CD 

P, 1404, 0BF9, 0006, CD ,10, BE, 0A, 62, 4 A, 46,05, EB , 00, 21, 5 A 
P ? 140A,OBD1,0006,A4, 31,62,22,7E,02,23,5B,A7,0C,28,10 
P,1410,OBC7,0006,1B,OA,B8,4A,2B,05,0 7,0 0,5E,5A,16,32 
P F 1416,OBAE,0006,00,2 2,19,02,23,5D,18,GC,Fl,10,4E,OA 
P,14lC.OBF5,00 06,06, 4A , 00 , 05 , 03 , 00 , DD , 5A, 5E , 33 , 0A , 22 
P,1422,OC24,0006 f DD ff 02,56,5E,OB,OC p D5,10,13,OA, ED, 4 A 
P,14 28,0BBF, 0006, B0, 05, C 3, 00, AE, 5 A, 66, 34 ? 21, 22, BB, 02 
P, 14 2E,OC42,0006,66,7B,7E,OC,A7,10,28,OA,5C,4A,21,05 
P,14 3 4,OBB8,0006,99,00,6 2,5A,7E,35,A7,22,28,02,4 3,7D 
P,14 3A,OBB4,0O0 6,B8,0C,28,10,O6, 0A , 11 , 4 A, 05 , 05 , 00 , 00 
P,14 40,OBE3,0006,19,5A,18,36,F3,22 P 2 3,02,E5,7C,DD,OC 
P,14 46.0CQ8,0006,5E, 10 , 0A, 0A , DD , 4A, 56 , 05 , 0B, 00 , 13 , 5A 
P,144C, 0020,00 6,13, 37 , AF , 2 2 , 21 , 02 , BB , 2F, 66 , 0C , 4E, 3 
P, 14 5 2, QA5 7, 000 5, 2 3, 8A, 06, 00, 00, 4D, 81, 5 3, ED, 32 
W, 5284 

PATCH TO INCREASE SPEED OF SCREEN UPDATE (optional) 

F, ED/CMD, ALCORl 

P, 4 75 A, 08 6 0,000 3, 4 A, 4D, 61, FA, 02, CC 
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P,14 5 7,OB7C,0006,BO,12,E1,F9,01,4A,04,F1,00,01,81,0 3 
P,145D,OBD4,0006,ED,01,BO,00,21,0 3,C4,OA,66,00,F5,2 4 
P,1463,OBBC,0006, 7E, 22, 2 3,17, A7,C8, 28, 00 ,12,11 r 4F r C8 
P,1469,0BA6,0006,F1,00,81,02,06,01,00,0C,ED,11,B0,C8 
P, 146F,OC2B,0006,DD,00,5E,66,OA,03,DD,01,56,00,OB r 04 
P,1475,0B8c,0006,D5,0C,13,ll,12,C8,18,00,34,67 r Fl r 02 
P,14 7B,0CBl,0006,18,lF,F2,0C,DD,12,6E,F9,0A,4A,DD,Fl 
P, 1481, 0B61, 0006, 66, 01, OB, 03, E5, 02, 23, 00, 36, 03, 02, 0A 
P, 148 7, 0B74, 0006, 23, 00, 36, 24, 3A, 22, 23, 17, 36, C8, 43, 00 
P,14 8D,0C0E,0006,18,ll,lF,C8,DD,00,E5,02,El,01,ll r 0C 
P,149 3,OB8C,0006,08,ll,00,C8,CD,00,E6,66,6 7,03 r 21,01 
P, 1499, OBAC, 0006, B8, 00, 66, 04,11, 0C, 03, 11,00, C8, CD ,00 
P,149F,OCA9,0006,E6,67,6 7,02,DD,1E,6E,OC,OA,12,DD,F9 
P,14A5,OBF1,0006,66,4A,OB,F1,E5,01,36,03,40,OA,EB,00 
P,14AB,0C49,0006,CD,03,F8,0A,6 7,00,D1,2 4,DD,22,E5,17 
P,14Bl,0BDE,0006,El,C8,CD,00,C7,ll,66,C8,C3,00,D2,02 
P,14B7,OBC1,0006,62,01,20,OC,3D,11,20,C8,00,00,9F,66 
P,14BD,0C22,0006,21,03,3A,01,1D,00,F5,04,3A,0C,3D,11 
P,14C3,0C0F,0006,1D,C8,00,00,D6,67,01,02,DD,0A,E5,0C 
P,14C9,0C61,0006,C5,4A,D5,61,E5,02,E5,4D,DD,8E,El,32 
P, 1804, 0567, 0001, AF,C9 
W,03F0 

PATCH TO ALLOW RETRYS ON DISK ERRORS 

WHEN A DISK ERROR IS DETECTED, THE MESSAGE: 

IO ERROR: 
FOLLOWED BY THE ERROR CODE IS DISPLAYED 
YOU MAY tYPE "Q" TO ALLOW THE ERROR TO PASS 
OR ANY OTHER KEY TO RETRY 

F, ED/CMD, ALCORl 

P,12 7A,08 5F,0003,FE,C3,1D,CF,20,66 

P,14CF,OCDD,0006,EB,FE,2 3,1D,7E,CA,A7,7E,2 8,6 4,15,F5 

P,14D5,0C4D,0006,23,CD,E6,F7,1F,66,4F,FE,06,51,00,2 8 

P,14DB,OC7B,0006,7E,04,FE,F1,3A,C3,20,6E,1C,64,23,F1 

P,14El,09B8,000 4,7E,Cl,FE,C3,4C,AA,28,6 4 

P,13 7 7,080 3,0003,DD,C3,E1,E5,20,66 

P,14E5,0CB9,0006,0A,DD,FE,El,4 4,CA,2 8,7B,0C,6 5,DD,F5 

P,14EB,0CE5,0006,36,CD,0E,F7,1B,66,18,FE,1B,51,DD,CA 

P,14F1,0C40,0006,36,C9,0E,5E,1A,F1,18,C3,15,65,DD,65 

P,14F7,OCCB,O0O6,36,C5,0E,D5,lC,E5,18,DD,OF,E5,DD,FD 

P,14FD,0C80,0006,5E,E5,08,F5,DD,21,56,A0,09,5E,7A,11 

P,150 3,OC25,0006,B3,OB,28,00,OB,CD,ED,E6,BO,67,3E,F1 

P,1509,OC26,0006,OD,CD,12,29,E1,6 7,D1,CD,C1,49,DD,00 

P,150F,0C9E,000 6,E1,FD,C9,E1,DD,DD,36,E1,12,E1,FF,D1 

P,1515,0693,0002,18,Cl,F4,C9 

P,OCAO,OCOB,0006,D1,OD,E1,49,D5,4F,5E,20,2 3,45,56,52 

P,0CA6,0AC7,000 5,23,52,E3,4F,E5,52,D5,3A,C3,20 
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P,OCC9,09E6,00 4,OE,Fl,FE,C3,lA,7F,2 8,6 5 
W,34E4 

INTERNAL EDITOR PATCH 

F, ED/CMD, ALCOR 1 

P,59 57.0804,00O3,12,4D,F5,51,4A f B3 

P f 0CAB,0C39, 0006, 4C, 10,50,02, Dl, 58, Dl, 1 2 , El , F7 ,C5 , 22 

P,0CB1, 0BC4, 0006, D5,0A,E5, 68 ,01,20, 00,10,01,02, CD ,56 

P,0CB7,0C0 7,0OO6,9 6,2B,6O,4 2,EB,21,El,O7,D5,lO,7A,O2 

P r 0CBD,0BFB,000 6,B3,58,2 8,15,4 4,O2,Ol,lF,O0,E9,Ol,12 

P,0CC3,0C9A,0OO6,CD,F5,2 6,6 5,5E,O8,FE,4D,0D,9 3,2 8,4C 

W,BB63 

E 



(C) Copyright ALCOR SYSTEMS 1982 - 17 



ALCOR SYSTEMS Newsletter July, 1982 Volume 1, Number i 



New Product Announcements 

By September, Alcor will be delivering the Alcor Pascal 
system for the Osborne-1, Apple II (Z-80 softcard equipped) 
and traditional 8 inch diskette based CP/M systems. 

Alcor Pascal on CP/M 

Alcor Pascal on CP/M based computers is functionally the 
same as far as the Pascal language is concerned. There are 
two main differences: 

(1) A library of external functions that are optimized for 
the CP/M operating system. 

(2) The inclusion of the Blaise II text editing system that 
has many new and powerful features such as: 



Hardware Reconf igurable 

(a) May be reprogrammed through the use of 
text setup files to understand smart or 
dumb terminals and use their features to 
speed up execution of the text editor. 

<b) Keyboard layout of the editor control keys 
may be specified In the setup file. Other 
popular keyboard layouts for word processors 
such as Wordstar may be mimicked. 



Powerful Macro Language 

The macro language will allow macro commands to be built from 
primitive or other macro commands. They may be placed in the 
setup file or defined during the edit. The combination of 
commands for word processing is Infinite. Commands to insert 
printer control codes are a simple example. Setup files may be 
generated that give the editor a Basic, Pascal or any other 
language personality desired. 



Word Processing Additions 

(a) Justify and fill. 

(b) Block text functions. 
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(d) Extract text to file. 

(e) Delete word, 

(f) Move cursor by word, 
ig) Center line. 

(h) More than one file may be edited at 
a time 

Osborne-1 Version 

The Osborne-1 version is supplied in the standard Osborne-1 
single density, single sided CP/M format. Alcor Pascal is the 
first Pascal system that will truly impact program development 
on the Osborne-1. The TRS80 versions of Alcor Pascal are 
quickly becoming the industry standard for Pascal programmers 
even with single density disk systems as proven by many TRS80 
Model I owners. Most other language systems of the scope and 
complexity as Pascal are hardly manageable on single density 
drives because of the many intermediate files generated in the 
course of a compile. A fine example is Pascal MT+ by Digital 
Research. It simply won't execute without performing the 
floppy shuffle on double density 5 inch disks. Performance is 
less than desirable on 8 inch single density disk based systems. 

Alcor Pascal on the Apple 

Recent estimates show that there are over 50,000 Apple II 
systems with the Z-80 softcard running the popular CP/M 
operating system, Apple users have bought the softcard in order 
to access the large base of CP/M software. Unfortunately, a 
common problem for the average Apple owner is that of restricted 
diskette storage- Since the average user doesn't own a 
Winchester drive just yet, they have found an absence of an 
acceptable Pascal system just like the Osborne-1 users. They 
will now have a complete and powerful Pascal language 
development system which is a perfect mate for their Z-card 
equipped Apple II. Alcor Pascal will be delivered on the 
standard CP/M 5 -1/4 Apple II formated diskettes. 
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Traditional CP/M Versions 

The standard CP/M format for Alcor Pascal is 8 Inch, single 
density, single sided, soft sectored for such systems as the 
California Computer System, TRS Model II and TRS Model 16. 
They are functionally the same as the Osborne-1 and Apple II 
versions. 



Notice to Software Developers 



Compatibility Between Versions 

All CP/M and TRS80 versions are object code compatible. This 
means that the compiler output object code may be transferred 
between any of these versions and re-llnked with the proper 
run-time support by the target machine linking loader for 
execution. The only restrictions for direct compatibility Is 
that any machine dependent routines not be Included In the 
compiled object. (Such routines as graphics) If they are used, 
the equivalent routine on the target machine must be compiled 
and/or linked to by the linking loader. This means that 
programs for sale can be developed and marketed on one machine 
such as the TRS80, then ported and sold on other Alcor supported 
machines, thus expanding your market base. As always, there Is 
absolutely no royalty fees required by Alcor Systems. Such 
are the advantages of program development In an efficient high 
level language. 



Random News Notes 
Pascal Newsletter 

This Is the first Pascal newsletter. It appears at this time 
that it will probably be published 4 times a year. Registered 
owners will receive four issues regardless of the dating 
of their registration agreement. 

Alcor Is looking for individual contributions for the Newsletter 
in the form of donated programs, programming tips, etc. There Is 
NO compensation Involved at this time. Alcor will give full 
credit to the author. We can NOT guarantee acceptance and timing 
for publication of submitted information. 
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The Next Alcor Pascal Version Upgrade 

Alcor Pascal 2.0 will be released around the fourth quarter of 
1982. Just a few of the planned additions are built in Random 
Access files and an Include feature. The Include feature will 
allow libraries of declarations or routines to be included in 
the source program during a compile by declaring the filename in 
a compiler option comment. ALL registered Pascal owners will 
receive this upgrade regardless of the dating of their service 
contracts There will be a nominal charge for diskette 
replacement. 

Alcors' Policy On Documentation Upgrades 

Documentation changes will be handled through the newsletter. 
Any errors found will be noted in an errata section of the 
newsletter. Any additional sheets added to the documents will 
also be included in the newsletter. 

Clarification of Runtime Licensing Agreement 

There has been a little confusion about what a user may 
distribute for resale. In plain english, if you develope programs 
with the Alcor Pascal compiler and build /CMD file 
programs on the TRS80, you may sell these programs freely. Alcor 
does not require any fees for the runtime support that is always 
included in /CMD files. (12,500 lines of Alcor assembler code) 
You may NOT distribute the Run, Pascal, Trslib, or any other 
Alcor programs or files beside the final user /CMD file. 

Compiler Errata 

There exists a non-patched bug in the compiler. It occurs when 
a READ statement with a subrange variable is used as an argument 
and the lower bound of the subrange type is not . An example 
is as follows. 

PROGRAM TEST; 
TYPE 

SMALLINT = -10 . . 200; 
VAR 

NUMBER : SMALLINT? 
BEGIN 

READLN( NUMBER) ; 

WRITELNt NUMBER) ; 
END. 
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Upon writing the NUMBER value, the output will be incorrect. 
The READ in value of NUMBER will be off by the lower bound. In 
this case a value entered by the user of 30 would be READ in as 
20. A simple way of getting around the problem Is to declare an 
INTEGER variable and READ into it, then assign it*s value to the 
subrange variable. The following is an example: 



PROGRAM TEST; 
TYPE 

SMALLINT = -10. . 200; 
VAR 

NUMBER : SMALLINT; 

INTNUMBER: INTEGER; 
BEGIN 

READLNt INTNUMBER) ; 

NUMBER ! = INTNUMBER ; 

WRITELNt NUMBER) ; 
END. 



Documentation Errata 
(First and Second Printing) 

Certain ommislons or errors in the documentation package have 
been noted. They are corrected as follows: 

(1) When executing under LDOS, the Pascal RUN command must 
be renamed to prevent conflicts between the Pascal and 
LDOS RUN commands. If you try to RUN a Pascal object 
file with the LDOS RUN command you will probably get 
the message: Load File Format Error from LDOS. 
Simply RENAME the Pascal RUN command to anything desired. 

(2) When executing under TRSDOS(M III) or LDOS, the Alcor Patch 
program should be renamed to prevent conflicts as in (1). 

(3) There are no passwords on any Alcor supplied diskettes. 
Where passwords are required simply use a blank character 
terminated by the enter key. 

(4) In the revised 1.2A documentation package, page 23 of the 
system manual shows an example program segment. In the 
declaration for the external procedure SET$ACNM, the 
parameter FILEID should be passed by reference. The 
correct declaration is as follows: 
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PROCEDURE SET$ACNM(VAR F:TEXT; VAR FNAME : FILENAME ; 

LEN: INTEGER? VAR FILEID : ALPHA ) ; EXTERNAL; 

(5) The database program as supplied on diskette requires 
significant memory to compile. You may have to use the 
overlayed compiler PASCALB if you have any high memory 
drivers loaded. To run the database program requires 

a stack specification of 15k. If using the RUN command 
15k must be specified on the command line as: 
RUN DATABASE 15K When building a command file with 
this object, specify 15k as the stack specifier in the 
build command. 

(6) Tutorial program variable names don't necessarily match 
the supplied source on diskette. (Alcor Pascal uses 8 
character unique variable names) 

(7) On page 42 of the REFERENCE manual, in the program 
example's main body, the line: 

tran@,link := translist; 

should read: 

trans@.link:=translist; 

(8) Please note that Pascal only (p. 99 of reference manual) 
scans to column 72 of the source program. Extending 
comments or statements over col 72 can cause 
unpredictable results and cause a fatal error to the 
compiler . 

(9) Error code 401 is not documented. It means that an open 
comment was encountered in a comment. Nested comment 
statements are not allowed. 

(10) Error code 403 is not documented. Too many procedure 
nesting levels. The nesting limit is 16. 

(11) Error code 404 is not documented. Array bounds must 
be scalar. 

(12) On page 14 of the Tutorial manual there is a typo in 
listing 4.2. The last writeln statement reads: 

WRITELNtOUTPUT, ' Business I.D- =',ID); 
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Should read: 

WRITELN(OUTPUT, ■ Business I.D. = ' , ssnumber ) ; 

(13) The Tutorial program T92/PCL doesn't match the listing 
9.2 in the manual. The manual is correct. 

(14) Page 59 of the Tutorial. Set inequality should read: 

setl <> set2 Set inequality- If all members of 
the first set are in the second 
set, and all members of the second 
set are in the first set: Then 
return false* 



Answers To Some Of The Commonly Asked Questions 

Question 
Is Alcors pcode compitable with U.C.S.D. ? 

Answer 

The answer is unequivocally no. Alcors pcode design is 
totally our own. This is not to thwart anyones desire for 
compatibility, but was simply necessary for efficient design. 
Alcors' p-code design Is one of the primary reasons that a 
complete and efficient implementalon of Pascal was possible on a 
48k equipped computer such as the TRS80 Model I or III. 

Question 

Will programs written in U.C.S.D. Pascal execute when recompiled 
with Alcor Pascal ? 

Answer 

U.C.S.D. has language features that are not common to Standard 
Pascal as defined by Jensen & Wlrth. If the non-standard 
language features of U.C.S.D. are avoided, then source programs 
may be recompiled on Alcor pascal for execution. It must be 
warned that such extensions as string manipulation are not 
defined in the Standard. However, Alcor Pascal handles string 
functions also, but not necessarily in the same manner as 
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y.C.S.D. o For a complete description of Standard Pascal, see 
the "Pascal User Manual And Report" by Katheleen Jensen and 
Niklaus Wirth, published by Spr I nger-Ver lag , New York, Nicklaus 
Wlrth is the person who designed and implemented the first Pascal 
compiler in 1971. 

Question 

Does Alcor Pascal understand my lowercase modification on the 
Model I ? 

Answer 

Yes, if your operating system does. Pascal only makes operating 
system calls to perform I/O to the screen and keyboard. If you 
have a lowercase modification and load the appropriate high memory 
driver before Invoking the editor, it will understand lowercase. 

Question 

Will the Pascal system work with my TRS80 Model I clock speed up 
modification ? 

Answer 

In most cases it will, however we can't guarantee it for all 
combinations. The Pascal system only makes standard operating 
system calls to perform disk related functions. There is no 
timing dependent code in the Pascal system, therefore if your 
clock speed up modification and operating system work together 
CORRECTLY f Alcor Pascal should also. We have had a few 
complaints about home brew mods that didn't always work 
correctly with particular operating system combinations. Since 
we don't have all possible hardware combinations at Alcor F it is 
impossible for us to GUARANTEE anything about clock speed up 
mods. 

Question 

Does Alcor Pascal support 8 inch foppies and Winchester type 
drives on the TRS80 ? 

Answer 

Yes it does. As delivered the Pascal system will work properly 
with B inch floppies and hard disk units as long as they are 
already properly integrated into the operating system 
environment with the required software drivers. The Pascal 
system treats these devices as logical devices and makes 
operating system calls to perform I/O, In simple terms, if other 
user application programs work correctly, Alcor Pascal should. 
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Question 

Is Alcor Pascal supplied In CP/M format for TRS80 systems 
that have the Omlkron CP/M adapter. Also what about the other 
CP/M adapters ? 

Answer 

Not at the present time. The only CP/M formats supported at 
this time are Osborne-1, Apple II (Z-80 softcard) and traditional 
8 Inch soft sectored formats. He are looking Into the possibility 
of supporting these other formats if we get enough requests. 

Question 

What about other TRSDOS like operating systems for the TRS80 ? 
Do you support any others than TRSDOS, LDOS, DOSPLUS and NEWDOS ? 

Answer 

No, not at this time. We don't have any plans for doing so unless 
we get enough requests. 

Question 

Where can I call for technical assistance ? 

Answer 

You should only call our technical assistance number after 
completely reading the manuals. In most cases the information 
requested is clearly described in the manuals. Many 
people exclaim that I haven't had time to read them yet so I 
just called because It was easier. If you truly have a problem 
and can't find the answer after thoroughly reading the manuals, 
call our technical assistance people at 214-494-1316. This is our 
computer facility In Garland, Texas . Normal hours are 9-12, 
2-5 P.M. Monday thru Friday. 



Getting Command Line Parameters From Pascal On The TRS80 

When writing an application program you may add a touch of class 
to the finished program by allowing users to specify parameters 
on the command line when bidding the program. This Is typical 
of most TRSDOS commands. When a user types the /CMD filename, 
the operating system loads and executes the appropriate program, 
then stores the command line that invoked the program in a 
predetermined place In memory. Once the program Is invoked, the 
program may retreive the contents of this memory location and 
use it to determine flow of control in the program. 

The command line arguments are stored beginning at hex address 
4318 on the model I and 4225 on the model III. A pointer 
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variable may be declared as a pointer to an array of CHAR. 
Through the vise of the type transfer operator, the pointer 
variable may be assigned the appropriate value, The pointer 
variable may then be used to access the buffer containing the 
command line. 

Example: 

PROGRAM GETCOMMANDLINE; 
TYPE 

POINTER = @BUFFER; 

BUFFER = ARRAYl .1. .64. )0F CHAR; 
VAR 

BUFPTR s POINTER; 
BEGIN 

BUFPTR: ; INTEGER ;= #4318; 

FOR I t= 1 TO 64 DO WRITE ( BUFPTR@ ( . I . ) ) ; 
END. 

An excellent program example which uses this technique is 
a print command. The following print program illustrates 
command line parsing. 



(*$N0 INOUTM 
PROGRAM PRINT; 

TYPE ALPHA=PACKED ARRAY ( . 1 . . 8 . ) OF CHAR; 
NAME=PACKED ARRAYl 1.. 64] OF CHAR; 
POINTER=~NAME? 

VAR CH :CHAR; 

LEN, START, STOP : INTEGER; 
FILENAME, PRINTER ;TEXT; 
ID tALPHA; 
FN ;NAME; 
BUFPTR : POINTER; 

PROCEDURE SET$ACNM(VAR FNAME : TEXT : VAR FN : NAME ; LEN: INTEGER ; 

VAR ID:ALPHAS; EXTERNALS- 
BEGIN 

(* DIRECT OUTPUT TO THE LINE PRINTER *) 

FNll]s=' : ' ? FN(2] :-'L 8 ; 

ID:= ! PRINTER B ; 

SET$ACNM(PRINTER,FN,2,ID) ? 

REWRITE(PRINTER) ; 
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(* GET FILENAME FROM COMMAND LINE 

EXAMPLE COMMAND LINE — > PRINT FILE/EXT 

GIVEN ABOVE EXAMPLE: THIS SECTION PUTS FILE/EXT INTO FN *> 
BUFPTR:: INTEGER := 14225; (* BUFPTR POINTS TO COMMAND LINE *) 
START :=1; 

<* FIND THE FIRST BLANK IN THE COMMAND LINE *) 
WHILE BUFPTR"! START) <> ' * DO START 8 =START+1 ; 
(* THROW AWAY ANY EXTRA BLANKS BEFORE FILE NAME *) 
WHILE BUFPTR" [START ] = ' ■ AND START<64 DO 

START:=START+1; 
IF START<64 THEN 
BEGIN 

STOPt=START; 

(* PUT FILE NAME IN ARRAY FN *) 

WHILE STOP<64 AND BUFPTR* { STOP i <>* ' AND BUFPTR" [ STOP J o'fOD 1 DO 
BEGIN 

FN[ STOP-START+1 ] : = BUFPTR" [ STOP J ; 
STOP:=STOP+l j 
END; 
LEN:=STOP- START; 

<* ASSIGN INPUT FROM FILE SPECIFIED ON COMMAND LINE *) 

IDt= , FILENAME ( ; 

SET$ ACNM ( FILENAME , FN , LEN , ID ) J 

RESET( FILENAME) ; 

(* PRINT THE FILE * ) 
WHILE NOT EOF (FILENAME) DO 
BEGIN 

WHILE NOT EOLNf FILENAME) DO 
BEGIN 

READ( FILENAME, CH) j 
WRITE(PRINTER,CH) j 
END; 
READLNC FILENAME) ; 
WRITELNf PRINTER) ; 
END; 
END; 
END. 
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Details on Alcors Object Code Format 

Some of the following format information has been extracted 
from the Advanced Development Package for those people who don' 
own a copy. 



D. Object Format 

Alcor Systems uses its own format for object code. The main 
reason for this is that support for many of the features of 
Alcor Pascal are not present in existing object formats. For 
example, Alcor Pascal supports common blocks for statically 
allocated variable storage and the object format must in turn 
allow for this. 

The pseudo-code (pcode) generated by the compiler is address 
independent. That is, it contains no absolute memory addresses 
and can execute without change when loaded anywhere in memory. 
All branching and calling of procedures within the pcode is done 
relative to the current program counter. Since procedures are 
compiled into separate modules, calculation of these relative 
addresses must be done when the code is loaded. The object 
format supports external references that are program counter 
relative. 

The object code is tagged hexadecimal and is emitted in a line 
oriented stream that is compatible with a pascal text file. In 
particular, the object code is character oriented and contains 
only printable ASCII characters. This allows the object to be 
manipulated by text editors or transmitted over modems. This is 
not possible with bit oriented formats. 

Each item in the object file begins with a tag which is usually 
an upper case letter. The tag defines the type of item and the 
number and size of the fields to follow. Tags are followed by 
one or more fields that specify the information to be loaded. 
Three types of fields exist. Bytes are specified with a two 
character hexadecimal number. Words consist of a four character 
hexadecimal number with the most significant byte first. Labels 
consist of eight character names that are the names of external 
symbols, common blocks, etc... 

Following is a table which lists all the tags used in an object 
file. All tags are followed by one to three fields of 
information, each field being either a byte, word, or label. The 
meaning of each tag is also shown. 
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Tag Fieldl Field2 



Field3 



Meaning 



A 


byte 




E 






F 






G 


word 


label 


I 


word 


label 


J 


label 




K 


word 




M 


word 


word 


N 


word 







word 


word 


P 


word 




Q 


word 




W 


word 




X 


word 




Y 


word 





Absolute* non-relocatable byte) 
End of module 
End of line 

Definition of external symbol 
External reference declaration 
Module name 

Reference to external symbol 
label Definition of common block 
Reference to common 
Overlay definition 
Code (PC) origin 
Relative reference to external 
Relocatable word 
Absolute word 
Entry point definition 
End of file 



E. Splitting Object Modules 



Since object files are in ASCII format, they may be edited with 
a text editor or used as input to a Pascal program. The 
following is a list of the pure pcode output (/OBJ) file for the 
LOOP procedure (Page 11 Advanced Development Pkg. manual) in the 
mixed mode operation example. Following it is a listing of the 
object (/COD) file which results from running the pcode object 
through the code generator. As you can see, the code generation 
has caused approximately a factor of 2 increase in size. 



Pure Pcode Listing (/OBJ) 



JLOOP P0000G0000LOOP A01X0000A38A02A03X000 lAl SAO 4A10A04MO 3X27 10A0 7F 
A15A06A2BA4EXOOOOA03X0001A03X0002A2 2A0 3X000 3A2 2A03X0 00 4A2 2A0 3X0005A22A0 3F 
X0006A2 2A03XOO07A2 2A0 3X0008A22AO3X0O09A22AO3X000AA22AO3XO0OBA2 2AO3X000CF 
A22AO3X0O0DA22AO3XOOOEA2 2AO3XOOOFA2 2A15AO2A10AO4A3OXOOO4A10A06A2 7A21AB9F 
P0014X00 4 7P005DA3AP0001X0006E 
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' Native Code Listing (/COD) 

JLOOP GO 00 3 LOOP ACl AEBAE9A01X0 06 A3 8 A02 A5 5 A2 1X0 001 ADDA 7 5 A0 4 ADDA 7 4F 
A05ADDA6EA0 4ADDA66A05AE5A21X2 710AE5ADDA7 5A06ADDA7 4A0 7AC1AEIA7 8AACAEDA4 2F 
A28A09A4 7A3FA1FAA8A07AE6A01A18A02A3EA00AA7AC2X0000A21X0001AE5A21X0002AC1F 
A09AE5A2 1X0003 AC1A09AE5A21X000 4 AC1A09AE5A2 1X0005 AC1A09AE5A21X0006AC1A09F 
AE5A21X00 7AC1A09AE5A21X0 8AC1A09AE5A21X0 00 9AC1A09AE5A21XOOOAAC1A09AE5F 
A21XOO0BAC1A09AE5A21XO0OCACIAO9AE5A21XOOODAC1AO9AE5A21X0OOEACIAO9AE5A21F 
X000FAC1A09ADDA7 5A02ADDA7 4A03ADDA6EA0 4ADUA66A05AE5ADDAE5AE1A01X000 4A09F 
A4EA2 3A4 6A0 3A70A2BA71ADDA6EA06ADDA66A0 7AC1AAFAEDA42A2 0AOIA3CAA7ACAW00 3AF 
F0O3 8WO0BDPO0BDACDW00 0A3AE 



Each module In an object file begins with the module name. 
Therefore, it is possible to split a file containing several 
modules into several files, each containing one module. This is 
an alternate method of segmenting large programs where it is 
desired to perform code generation on only selected parts. 

There are two ways to split the object modules, One is to text 
edit them. The other more desirable method is to write a 
Pascal program to split them. A simple program may be written 
to read the pcode (/OBJ) file. Each time a module is 
encountered, open a f i Le of the same name as the module and 
write the module to that file. Once all the modules are 
separated into different files, selected modules may be input to 
the code generator and translated to native machine 
instructions. The linking loader may then be used to link the 
individual modules and build an executable command (/CMD) file. 



Management Of Object Modules 

One of the more useful features of Alcor Pascal object code is 
its ease of manipulation with normal programs or programming 
tools. Since it is plain ASCII text, and is relocatable, large 
programs may be broken up into the various object modules that 
correspond to source procedures and functions. The utility of 
this may not be obvious, but is very important to the serious 
programmer. When writing large Pascal programs that are well 
modularized, (broken down to many procedures and functions) it 
is convenient to only recompile the parts of the program that 
are necessary during the development phase. There are two 
different ways of performing this. The first method is to always 
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compile procedures and functions separately using the compiler 
nullbody option as described In the Reference manual, and then to 
link the desired modules together with the linking loader to 
produce a final program. Indeed, that is how all development 
work on the Pascal compiler is done at Alcor Systems. However, 
when first writing a large program, it is usually inconvenient 
to separately compile and link all modules In the beginning, 
because the time required to perform the separate compiles and 
link edit is greater than the time saved by not compiling the 
entire program at once. The typical mode is that the program 
starts out as one large program with many procedures and 
functions. The entire program is compiled and one object file 
Is produced. Usually after the program reaches 500 lines or 
more, the time required to do a complete compile is significant. 
At this point, a good practice is to split the compiled object 
file such that all sections of the object file that represent 
procedures and functions reside in different files. A COPY of 
the source program ie then modified by removing all the actual 
procedure and function statements, and by leaving external 
procedure or function declarations in their place, (see the Alcor 
Pascal Reference Manuals At this point the modified source 
program may then be compiled much faster because the resultant 
program will be shorter., After the program has been 
successfully recompiled,, It may then be linked with the linking 
loader to the previously split object files to satisfy the 
linking loaders external references. From then on f only the 
main program and new procedures or functions need to be 
recompiled. The following Pascal program will split an object 
file Into different object files that have the object code for 
different procedures and functions. It does so by recognizing 
the previously described object code tag field information. 
This is a handy little program that will serve as an excellent 
utility for the advanced Pascal programmer. 



(*$NO INOUT*} 
PROGRAM SPLITJ3BJECTJ 
TYPE FILENAME = ARRAY? 
ALPHA = ARRAY! . 1. 



1. .72. ) OF CHAR; 
8. J OF CHAR* 



VAR INPUT,OUTPUT,OBJFILE,SPLITOBJ 
EXT 

MODULENAME, ID 
CH,DRXVB 

FIRSTIME,FIRSTCHAR 
FN 
£,LN 



:TEXT; 

:PACKED ARRAY ( . 1 . . 5 . ) OF CHAR; 

:ALPHA? 

:CHAR; 

: BOOLEAN ; 

:FILENAME; 

: INTEGER? 
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PROCEDURE SET$ACNM(VAR F :TEXT; VAR FN ! FILENAME? LEN -.INTEGER 

VAR ID : ALPHA); EXTERNAL; 
FUNCTION CONC(Sl,S2 : STRING): STRING; EXTERNAL; 
FUNCTION LEN(S :STRING): INTEGER; EXTERNAL; 
PROCEDURE GOT0XY(X,Y: INTEGER) • EXTERNAL; 
PROCEDURE CLEARSCREEN; EXTERNAL; 
PROCEDURE NOBLANK { FLAG : BOOLEAN ) ; EXTERNAL; 

BEGIN 

(*SET INPUT AND OUTPUT TO THE TERMINAL*) 

FN( . 1. ) :=' t ' ; FN( .2 . ) : = ' C ' ; 

NOBLANK(TRUE) ; 

IDt=* INPUT ' ; SET$ACNMUNPUT, FN, 2, ID) ; RESETUNPUT); 

ID:='OUTPUT '; SETSACNM (OUTPUT, FN , 2 , I D ) ; REWRITE ( OUTPUT ) ; 

CLEARSCREEN; 

GOTOXY(0, 0) ; 

(* PROMPT FOR NEEDED INFORMATION*) 

WRITELN( OUTPUT, 

$$ ALCOR PASCAL SPLIT OBJECT UTILITY $$'); 
WRITELN( OUTPUT) ; 

WRITELN(OUTPUT, ' ENTER OBJECT FILENAME TO BE SPLIT: * >; 
WRITELN(OUTPUT, 'ENTER DISK DRIVE FOR SPLIT OBJECT FILES: r >; 
GOTOXY(41,2) ; 
READLN< INPUT, FN) ; 
GOTOXY(41,3) ; 
READLNl INPUT,DRIVE) ; 
GOTOXY<0,4> ; 

WRITELN( OUTPUT, ' * SPLIT IN PROGRESS *'); 
WRITELNtOUTPUT, ' Modulename Filename 8 ); 
{♦OPEN OBJECT FILE TO BE SPLIT*) 
ID:='OBJFILE '; 

LN:=72; WHILE FN(.LN.)=' ' DO LN:=LN-1; 
SET$ACNM(OBJFILE,FN,LN,TD) ; 
RESET(OBJFILE) ; 

(•SPLIT /OBJ FILE INTO MULTIPLE FILES*) 
ID:=' SPLITOBJ* ; 
EXT:=VOBJ: ' ; 
WHILE NOT EOF(OBJFILE) DO 
BEGIN 

READ(OBJFILE,CH) ; 
( * TF AT BEGNNING OF MODULE*) 
IF CH='J' THEN 
BEGIN 

CLOSE(SPLITOBJ) ; 
READ(OBJFILE, MODULENAME) ; 
LN:=0; 
FOR I:=l TO 9 DO 

IF < MODULENAME ( . I. ) <> * ' ) AND ( MODULENAME ( . I .)<>'$' ) 
AND(MODULENAME( . I. )<>' _' » THEN 
BEGIN 
LN:-LNf 1; 

FN( .LN. ) :-MODULENAME( .1.1; 
END; 
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FOR I:-l TO 5 DO 

FN( .LN+I, ) s=EXT( .1. ) ; 

FN< .LN+6. ) ;=DRIVE; 

LN;=LN+6; 

SET$ACNM<SPLITOBJ,FN, LN,ID> ; 

REWRITE(SPLITOBJ) ; 

WRITE(SPLITOBJ, D J' ) ; 

WRITE(OUTPUT f B ! , MODULENAME , " =====> »). 

FOR I:=l TO LN DO WRITE ( OUTPUT, FN( , I .)) ; 

WRITELN(OUTPUT) ; 

WRITE (SPLITOB J, MODULENAME) ; 

END 
ELSE 

WRITE(SPLITOBJ f CH) ; 
WHILE NOT EOLN(OBJFILE) DO 

BEGIN 

READ(OBJFILE,CH» j 

WRITE(SPLITOBJ f CH) ; 

END; 
IF NOT EOF(OBJFILE) THEN 

READLN(OBJFILE) ? 
WRITELN(SPLITOBJ) ; 
END; 
WRITELN(OUTPUT, ' * SPLIT COMPLETE *')? 
END. (*SPLIT OBJ*) 



Building TRSDOS CMD Files With Assembly Language Subroutines 

An important requirement for any serious language system is 
the ability to build CMD files that include assembly languange 
subroutines. Alcor Pascal is one of the most efficient high level 
language systems available today. A vast majority of programming 
tasks may be handled with ease in Pascal, while at the same time 
producing programs that are highly efficient. However there 
always exist tasks which are better suited for assembly language. 

Radio Shack Assembly Language 

The R.S. assembler produces non relocatable code that must 
be origined at the time of assembly. The technique for building 
CMD files with code produced by it and Pascal code will briefly 
be described. There are many variations on how to handle 
subroutine entry points, but the simplest will be shown. 
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TRRflO 
The Mpmory Map 



Volumr 1, Mumhnr 1 



HEX onoo 



4000 



S700 



7C49/7C37 



FFFF 



ROM 



operating" 3ysf r»r 



Runtime Support 



User rroqram 

Arpa 



Frogram StacK 



rrogram Neap 



i FxampI*-* ) 
7C49/7C17 Ass. RnnHnn 1 
As: 
Ass. Rout :. l~Addr . 2 * Size 7 



S.RouL7-Shp 1 I7r49/7('37|| 



Thp uflpr program arpa starts at 7C49 on thp Model 111 ami 7C37 
on tlip Model I, . This Is the origin that user assembly 
programs should start at. Thp basic steps are: 

(II Origin all assembly language routlnps at 7C49/7C17 
and assemble using the RS or similar assembler. 

12) Compute the length of the assemblpr load modulps 
by subtracting thp bpglnnlng Instruction address 
from thp pndlng Instructions addrpss and adding thp 
length of the last Instruction In bytes. This will 
be the slzp In bytes of each separately assembled 
module. 

(3) Reassemble routines 2..N, reorlglnlng each module 

to thp proper load addrpss as computed from a 7c<9/7(M7 
starting point. Example! I7rj49/7c37 4 size of 
asspmblpr routine 1 - origin of assembler routine 7, Ptr 
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(4) 



Create a text file with an editor for each assembly 
language module that contains: 



PxxxxE 



Where xxxx is the size (HEX) in bytes of this particular 

assembly as computed from step 2. Create one file 

for each routine. They may be named as desired 

They are used as dummy routines by the linking loader 

to reserve user program area for the assembler routines. 

(5) Use the normal system LOAD command to load all desired 
assembly language routines into memory. 

(6) Invoke LINKLOAD. Use the LOAD command to load 

each one of the dummy modules created in step 4 „ Load 
dummy modules in the desired memory order from I7C49/7C37 
to IFFFF Normally Pascal programs will start loading 
at I7C49/7C37 to fFFFF in sequence. Loading the dumy 
modules will reserve areas of memory for non Pascal 
programs starting at I7C49/7C37. This will force Pascal 
programs to load after the assembly lanquaqe 
routines. ^ 

(7) Load Pascal programs and procedures, build CMD file. 



Note - In the Pascal source program that calls the users 
assembly language routines, insert constants for 
the entry point of every routine. 

The following assembly language routine plots an array. It may 

outDut e Mle .h it V!! e ?* S * « di t«/-«e-"bler. Once assembled the 
output file should be transferred from TRSDOS 2.3B to 2,3 on the 
Model I as Alcor Pascal is not compatible with 2.3B unless the 

NEWOOq/PA? nn h ^'TV 1 ^ the 8u PP lled P^h file labeled 
ESE? i hlh the Model I. Thats right folks, TRSDOS 2.3B on the 
Model I behaves like NEWDOS does. The following Pascal program 
simply illustrates the linkage between Pascal and assembler 
routines . 



00100 
00110 



UUI10 . sample assembly language program for linkag 

°°}^ ; to P a ? ca1 ' Thl s subroutine plots a seri 

""JfX ; of P° lnts on the screen from an array. 

UU 140 • 
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00150 
00160 
00170 
00180 
00190 
00200 
00210 
00220 
00230 
00240 
00250 
00260 
00270 
00280 
00290 
00300 
00310 
00320 
00330 
00340 
00350 
00360 
00370 
00380 
00390 
00400 
00410 
00420 
00430 
00440 
00450 
00460 
00470 
00480 
00490 
00500 
00510 
00520 
00530 
00540 
00550 
00560 
00570 
00580 
00590 
00600 
00610 
00620 



ORG 



07C49H 



Load point 



Subroutine to plot a series of points on the screen. 

INPUTS: HL contains the address of the array of 

points. Each point is represented by two 
bytes containing the x and y coordinates. 
DE contains the count of the number of points 
to be plotted. 

PLOT LD A,D ; CHECK FOR ZERO COUNT 

RETURN ON ZERO COUNT 
GET X COORDINATE 

GET Y COORDINATE 

SAVE POINTER TO POINTS 
DETERMINE SCREEN LOCATION 
MERGE WITH PREVIOUS CONTENTS 
GUARANTEE GRAPHICS MODE 
MASK OUT SPECIAL CHARACTERS 
STORE INTO SCREEN 
RECOVER POINTER TO DATA 
DECREMENT COUNT 
AND REPEAT 



Subroutine to compute the location of a point 
on the screen. 

INPUTS: B contains the x coordinate 
C contains the y coordinate 
OUTPUTS: HL contains the memory address within 
the screen memory 
A contains a bit mask with a bit set in 
the position of the addressed point 

The memory address is: 

(y div 3)*64 + (x div 2) + screenorigin 
The bit number is: 

( y mod 3 ) * 2 + { x mod 2 ) 



LD 


A f D 


OR 


E 


RET 


Z 


LD 


B, (HL) 


INC 


HL 


LD 


C, (HL) 


INC 


HL 


PUSH 


HL 


CALL 


POINT 


OR 


(HL) 


OR 


080H 


AND 


0BFH 


LD 


(HL) ,A 


POP 


HL 


DEC 


DE 


JR 


PLOT 



POINT 



PT001 



LD 


A,C 


AND 


3FH 


CP 


030H 


JP 


CPT001 


LD 


A,02FH 


LD 


C0FFH 



MASK TO 0. .63 range 
GREATER THAN 47? 



SET TO 4 7 IF > 
DIVIDE Y BY 3 



47 
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00630 
00640 
00650 
00660 
00670 
00680 
00690 
00700 
00710 
00720 
00730 
00740 
00750 
00760 
00770 
00780 
00790 
00800 
00810 
00820 
00830 
00840 
00850 
00860 
00870 
00880 
00890 
00900 
00910 
00920 
00930 
00940 
00950 



PT002 



PT003 



INC 


C 


SUB 


3 


JR 


NC,PT002 


ADD 


A, 3 


LD 


L,B 


LD 


B,A 


LD 


A,L 


ADD 


A, A 


LD 


L,A 


LD 


H,C 


SRL 


H 


RR 


L 


SRL 


H 


RR 


L 


RLA 




AND 


1 


LD 


C,A 


LD 


A,H 


AND 


3 


OR 


03CH 


LD 


H,A 


LD 


A,B 


RLCA 




ADD 


A f C 


AND 


7 


LD 


B,A 


INC 


B 


XOR 


A 


SCF 




RLA 




DJNZ 


PT003 


RET 




END 





? SUBTRACT 3 UNTIL NEGATIVE 



C IS Y DIV 3 

SAVE X COORDINATE 

B IS REMAINDER <Y MOD 3) 

GET X COORDINATE 

A IS X*2 

HL IS (Y/3*256+X*2) 
DIVIDE HL BY 4 



HL IS <64*Y/3) f X/2 
LSB OF A IS (X MOD 2) 
MASK LSB 



; UPPER BYTE OF SCREEN ADDRESS 

? HL IS BYTE ADDRESS 

; GET Y MOD 3 

j MULTIPLY BY TWO 

; ADD X MOD 2 

; B IS BIT NUMBER 

; SHIFT COUNT 

S SHIFT IN CARRY 



The 1 line dumy loader file used to reserve user are is as 
follows: 

P004DE 



(*$NO INOUT*) 
PROGRAM DIAGONALS? 

{* Sample program to plot diagonal lines on the screen *) 
(* This program calls an assembly language subroutine *) 
(* to display a set of points contained in an array *) 
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CONST 

plot = t7C49; (+ load point of plotting routine *) 
arsize - 95; (* size of array of points *) 
TYPE 

byte = 0. .255; 

point = packed record 

x : byte; 

y : byte; 

end ; 
plotarray = packed array [ .. arsize ] of point; 

VAR 

line * plotarray; 

A : byte; 

BC, DE, HL, IX, IY : INTEGER; 

PROCEDURE CALLS (ADDRESS : INTEGER; VAR A: BYTE; 

VAR BC, DE, HL, IX, IY : INTEGER); EXTERNAL; 
PROCEDURE CLEARGRAPHICS; EXTERNAL; 

BEGIN 

CLEARGRAPHICS; 

FOR I := TO 47 DO BEGIN (* LEFT TO RIGHT DIAGONAL *) 

LINE[I].X := I + I; 

LINEIIJ.Y r= I; 

LINE[I+48].X r= I+I+l; 

LINE[I+48].Y := I; 

END; 
HL := LOCATION(LINE) ; 
DE :- 96; 

CALL$(PLOT,A,BC,DE,HL,IX,IY) ; 

FOR I := TO 47 DO BEGIN ( LOW RIGHT TO UPPER LEFT } 

LINEIIJ.X := I+I; 

LINEIIJ.Y := 47-1; 

LINE[I+48J.X r = I+I+l; 

LINE[ 1+48], Y := 47-1; 

END; 
HL := LOCATION(LINE) ; 
DE := 96; 

CALL$(PLOT,A,BC,DE,HL, IX, IY) ; 
END. 
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Loading Short Assembly Language Routines 
into Pascal Arrays And Executing 

op^oS-^ ;:.:.r^^ 1 So: an ?„ u '2 h e i.'c o .T. ti -? t > jur ■ an 

these are the tvoe tnnJl! * ? pascal s restrictions. Amoi 

In this column, we will show you how to execute assemhlv 
array .nd^xecuLrS ^e pr^^S ^ \l 1°?*'* ^ " P9SCal 

wai we c»n ? tW °, dl9it he « d ^i-.l (base 16. nu.be?. i£ # £ hl . 
way, we can insert any sequence oe bytea into a strino , 

Lne processor on which we are executing. 

numbers^nd 1 !^"? * nstructl ° ns "e encoded a S hexadeci-nal 

or the array as instructing aii i-k^*. i v-wni-eiics 

the registers fv a mis ! Jh ?i necessary is to load 
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11 L'Vk ? itT* 9 " POUrCe For HlP logical AND routlnP is 
listed below Similar routines can bn written For other 
purposes. The array that you use can be anv ,h P . It noo^ only 



be large enough to contain the code that you wish to expcute 
This Particular routine was assembled with Alcors' M„I processor 
assembler although any assembler may be used such as Radi^ Itl^ 
Editor Assnmblpr combination ° Sh * ckB 



MULTIPROCESSOR ASSEMBLER VERSION: 1.3 18:26817 04/0B/B2 



PAGE 1 



1 






2 






1 






4 






5 






6 






7 






B 






9 


0000 


7C 


10 


0001 


A2 


11 


0002 


67 


12 


0003 


7D 


13 


0004 


A3 


14 


0005 


6F 


15 


0006 


C9 



Z80/8080 subroutine to generate thp loqical 
AND oF two 16 bit numbers 
INPUTS; 



de, in, 


- operands 


OUTPUTS: 




11!, 


- result 


MOV 


A,H 


ANA 


D 


MOV 


H, A 


MOV 


A,L 


ANA 


E 


MOV 


L,A 


RFT 





The string oF asspmbler output that Is to be loaded Into the 
Pascal array Is the third column group or ' I7cIA2I67|7dJa3I mc9' 

me" ^ou^rtr^^r^ ^ C °^ il ^ ™« ^ored as an object 

our 1 L I" dPC! * re anV ° f the f — tlon, or procedure, 
Who„ " C P f!S ^ n P ro 9 r ™ as external declarations 

till conta^ n\*\( C "\V l l "A? ^ ""^ ^ader? link to the 
ie containing the object File containing this output. 

PROGRAM LOGICALOPFRATIONS* 
TYPE 

CODEARRAY ^FACKED ARRAYfl. .8 J OF CHAR; 

PROCEDURE CALI.$(ADDRESS s INTEGER; VAR A - BYTE- 

VAR BC, HE, fir., IX, TY : INTEGER). EXTERNA!,? 

FUNCTION AND16IOP1. OP2 , INTEGER!: INTEGER; 
CODE • CODEARRAY: 
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A : BYTE; 

BC, DE f HL, IX f IY s INTEGER; 



BEGIN 

DE := 0P1; 

HL := OP2; 

CODE := , l7CtA2f67|7DtA3|6FfC9 •? 

CALL$( LOCATION* CODE) , A , BC ,DE , HL, IX , IY ) ; 

AND16 := HL; 
END; (* AND16 *) 

FUNCTION SHIFTLEFTtOPERAND s INTEGER): INTEGER; 

(* shift the operand one position left *) 

VAR 

CODE : CODEARRAY? 

A : BYTE; 

BC, DE, HL, IX, IY t INTEGER? 
BEGIN 

HL := OPERAND; 

CODE := * |29fC9 • ; 

CALL$( LOCATION (CODE > , A , BC ,DE , HL , IX , IY ) ; 

SHIFTLEFT := HL; 
END; (* SHIFTLEFT * ) 

(* Other functions can be written using the same patterns *) 
(* The only change required is the actual code loaded *) 
(* into the code array. The following strings may be *) 
(* used to perform other logical operations. *) 

(* Inclusive Or ==> • f 7A|B4|67f 7B|B5|6F|C9 " *) 

(* Exclusive Or ==> ' f 7A|ACt67|7B|ADl6F| C9 ' *) 

«* Bit inversion ==> * |7Ci 2F|67|7D| 2Ff 6F|C9 " *) 

(* Shift right ==> • f 7C|A7|lF|67f 7D|lF|6F|C9 • *) 

«* Arithmetic shift right==> ■ iCB#2C|CB|lDtC9 B *) 

(* Swap bytes ==> ■ f 7C|65|6FfC9 ■ *) 

BEGIN 

(*$NULLBODY*) (* The nullbody option prevents code generation *) 

(* for the main program. The resulting compiler*) 

(* output can be used as a procedure library. *) 
END. J 

A simple example follows: 

PROGRAM EXAMPLE; 
VAR 

BYTE1 , BYTE2 , RESULT : I NTEGER ; 



(C) Copyright ALCOR SYSTEMS 1982 - 42 



AI.COR SYSTEMS Npw;|p^pr .July, 19R2 Volume 1, Number 1 



FUNCTION ANPlMOPl ,Of? • TNt'EGER > t INTEGER : EXTERNAL; 

prn in 

FOR I :~ 1 TO S po 
P FG I N 

WRITFI.Nf ' ENTER TWO INTEGER NUMBERS TO PR ANPRP'J; 
FEAPbN( PYTR1 , PYTR?. ) ; 
RESULT '. - ANUlM PY TEl , BYTE? 1 t 
WRITELN! ' ANPEP RESULT - ', RESULT) ° 
FNO; 
FNP. 

Random Accprr Files 

Random Access fil^c- rrfprs to a f I I. *=» nrrpps method wIitp any 
record may hp RFAP or WRITTEN ho In any nidpr. As most Pasral 
programmers know, Pascal dons not define the Random flip type. 

The following rascal procpdurrs and functions will allow random 
accpss to files on the TRS80. The following Pascal program and 
routines should op compiled and left in object format . Whpn 
using random arrpRS flics, these routines should bp declared as 
external in the main program. Then simply link to the 
previously compiled random access routines with the linking 
loader to satisfy any external, references. 

All source and compiled object files for random access files are 
on the patch disk available to update 1.2 owners to 1. ,2A. They 
are NOT in the 1 . 2A release system. There are also other misc. 
files on this diskette. (Registered owners send $ 8.00 + 
shipping to Alcor) Pullt In random access files will be Included 
in Pascal version 7.0 to be released In late fourth quarter this 
year. Abb registered Pascal owners will be eligible for this 
update, regardless of .licensing date. 

The following declarations should be Included in the source 
program. 

RANDOM FILE ROUTINES 

PROCFPURE OPENRANPIVAR FiEtbETYPE; RECORObEN : INTEGER ; PATHNAME: STR I NG 
VAR STATUS: INTEGER} ; EXTERNAb; 

The purpose of this routine Is to open a random file. The F I 

variable Is of any file type. Random file types are fixed in J 

length and should be declared as a FlbE OF DATATYPE. A text j 

file is not a particularly useful DATATYPE. The flletype may be J 

any structure such as an ARRAY, RECORD, ptc. . . RECORObEN must be fi 
Hie sizo rpqulrpfl for the flletype. The ST 7, FT J > function may be 
used ro determine the RFCORUbEN. PATHNAME Is the physical 



<'..') Copyright AbCOR SYSTEMS I9B2 4 1 



ALCOR SYSTEMS Newsletter July, 1982 Volume 1, Number 1 



filename on disk. You must prompt the user if it is to be 
changed at runtime, STATUS is a code returned by PASCAL and the 
operating system. The status code returns the status of an 
operation on a random file. 

PROCEDURE READRAND(VAR FtFILETYPE; RECORDNUM ; INTEGER ; 

VAR DAT: DATATYPE; VAR STATUS : INTEGER ) ; EXTERNAL; 

This routine is used to READ data from a random file. The 
RECORDNUM is the record number to be read. DAT is the buffer 
for the data and is declared to be of the same type the file 
declared DATATYPE in the OPENRAND routine. 

PROCEDURE WRITERAND(VAR F:FILETYPE; RECORDNUM: INTEGER ; 

VAR DATsDATATYPE; VAR STATUS : INTEGER ) ; EXTERNAL? 

This routine is used to WRITE data to a random file. The 
RECORDNUM is the record number to be written. DAT is the buffer 
for the data and is declared to be of the same type the file 
declared DATATYPE in the OPENRAND routine. 

PROCEDURE CLOSERAND(VAR FsFILETYPE); EXTERNAL; 

Random files on TRSDOS are required to be closed before program 
termination. Failure to do so may result in a loss of data. 

As with random files on any operating system, there are some 
peculiarities about random files. For example: 

(1) If you WRITE record number 1 and WRITE record number 
100, and then read any record from 2 to 99, the 
returned buffer will contain trash. The data will be 
whatever was previously on the diskette, probably the 
contents of an old file. This is because the operating 
system does not keep that much context. It is up to 
the user to keep track of unwritten records so they 
are not READ, 

(2) Random file record sizes may be from 1 to 256 only. 
All blocking is taken care of by the system. 

(3) The standard functions EOLN, EOF have no meaning for 
random files. The status codes as returned by the 
above routines perform those fuctions where 
applicable. 



C) Copyright ALCOR SYSTEMS 1982 - 44 



AI..COR SYSTEMS Newsletter July, 1982 Volume 1, Number 1 



(4) The procedure OPENRAND is used to open a file for 
reading and writing to. Opening an empty file and 
reading is perfectly legal. It is up to the user to 
check the returned status on all random file 
operations . 

(5) Random file record numbers are defined from 0..32 r 767 . 

(6) As with normal files, if a file is declared LOCALLY 
within a procedure and opened, (Not passed in as a 
parameter) once the procedure is exited, Pascal will 
automatically close the file using the standard CLOSE 
file routine for non random files and postion the EOF 
mark in the directory at the last record read or 
written to. This may not be the correct position as 
desired by the programmer. An explicit call to 
CLOSERAND should be used to close the random file and 
position the EOF. This will always correctly place the 
EOF mark. 

(7) You may declare a file to be s 

(* WHERE XX IS ANY RECORD LENGTH FROM 1 TO 256*) 
TYPE LINE = ARRAY( . 1. .XX. ) OF CHAR; 
VAR FtFILE OF LINE; 

Once the file has been opened, you may access it by 
using the READRAND and WHITERAND external procedures 
even if the file was not created by Pascal. There is 
only one procedure for opening random files, (no reset 
and rewrite) You may read or write to a random file. 



Random File Error Codes 
Returned By External Procedures 

15 - DISK WRITE PROTECTED 

24 - FILE NOT FOUND 

27 - DISK FULL 

28 - END OF FILE 

29 - RECORD NOT FOUND (PAST EOF) 

128 - PATH NAME IS NULL OR TOO LONG 

129 - RECORD LENGTH IS NOT BETWEEN 1 AND 256 

130 - FILE IS ALREADY OPEN 

131 - FILE IS NOT OPEN 
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The following source Pascal may be compiled and the object 
appended to the TRSLIB/OBJ file or kept separate. These routines 
must be linked to by the linking loader if they are used in the 
main program. (The source and compiled object file is available 
from Alcor for $ 8.00 + shipping on the 1.2A update diskette) 

PROGRAM RANDOM; 

(* External procedures to implement random access *) 
(* files in pascal, Logical record lengths are *) 
(* limited to 256 bytes maximum. *) 

{* Error codes: *) 

(* 128 = path name is null or too long *) 

(* 129 = record length is not between 1 and 256 *) 

(* 130 - File is already open *) 

(* 131 = File is not open *) 

TYPE 

REC = PACKED ARRAYU..20] OF INTEGER; 

RANDFILE = FILE OF REC; 

BYTE = 0. .255; 

ALPHA = PACKED ARRAY[l eo 8J OF CHAR; 

FILEBUFFER = PACKED ARRAY [ . . 255 3 OF BYTE; 

BUFPTR = 3FILEBUFFER; 

DCB = PACKED RECORD <* disk control block *) 
CASE BOOLEAN OF 

FALSE : (NAME : PACKED ARRAY [1.. 50 J OF CHAR); 
TRUE : ( 

FILLl s PACKED ARRAY[1..3J OF BYTE? 

BUFFER s BUFPTR; (* address of buffer *) 

OFFSET s BYTE; i* offset for end of record *» 

DRIVE s BYTE; (* disk drive *) 

FILL2 : BYTE; <* reserved *) 

EOFLOC i BYTE; (* end of file offset *) 

LRL s BYTE; (* logical record length *) 

NEXT : INTEGER; (* next record number *) 

LAST i INTEGER; (* last record in file *) 

FILL3 s PACKED ARRAY[1..18J OF BYTE; 

>J 

END; 

FILEDESC = RECORD 

NAME % ALPHA; (* Pascal name of file *) 

DCBPTR : §DCB? (* pointer to deb *) 

BUFR i BUFPTR; (* pointer to physical buffer *) 

FILL : PACKED ARRAY[1..12] OF BYTE; 

RECLEN : INTEGER; (* logical record length *) 

END; 
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TWOBYTES = PACKED RECORD 
LB : BYTE; 
UB : BYTE? 
END; 



PROCEDURE CALLS (ADDRESS . INTEGER; 

VAR BC, DE, HL, IX, IY : 

FUNCTION LEN(S : STRING) ; INTEGER 



VAR A ; BYTE; 
INTEGER); EXTERNAL 
EXTERNAL; 



PROCEDURE OPENRAND(VAR F : RANDFILE; RECORDLEN : INTEGER; 

PATHNAME : STRING; VAR STATUS s INTEGER); 
CONST 

CALLOPEN - 'tCDf24M4lF5lEl|C9' ; 
CALLINIT - ' ICDl20l44f F5IE1IC9' ; 
VAR 

EXECUTE : PACKED ARRAY I I.. 6 | OF CHAR? 
A s BYTE; 

BC, DE, HI,, IX, IY : INTEGER; 
BEGIN 

STATUS := 0; 

IF F: :FILEDESC.NAME[ 1 J = CHR(O) THEN BEGIN 
(* File Is not already open *) 
WITH FjiFILEDESC DO BEGIN 

NAME r= 'RANDOM ' • (* Set file name *) 

NEW(DCBPTR); ( Allocate DCB for operating syg ) 

NEW(BUFR); { Allocate a physical buffer ) 

RECLEN := RECORDLEN; 
END; 
GETSTR(PATHNAME,E: : FI LEDESC . DCBPTR0 . NAME ) ; (* Set file name *) 
IF LEN( PATHNAME) - OR LEN( PATHNAME ) > 50 THEN 

STATUS := 129 
ELSE F: :FILEDESC.DCBPTRe.NAME[LEN<PATHNAME>+l J := 'fOD'? 



IF RECORDLEN > 256 
STATUS := 129 

ELSE IF STATUS - 
HL := LOCATION ( 
DE != LOCATION( 
BC: :TWOBYTES.UB 
EXECUTE := CALL 
CALL$( LOCATION( 
(* Callopen is 
(* executed fro 
(* routine and 
(* register in 
<* NEWDOS80 doe 
(* the status r 
IF NOT OD1MHL D 



OR RECORDLEN < 1 THEN 

THEN BEGIN 
F: tFILEDESCBUFRP) ? (* Physical buffer *) 
F: iFILEDESCDCBPTRG) ? (* Disk control block *) 

:- RECORDLEN; (* Record length *) 
OPEN; 

EXECUTE) , A,BC,DE,HL,IX,IY) ; 
an machine language program *) 
m an array. It calls the system *) 
returns the contents of the status *) 
register L. This is necessary since *) 
s not return with the A register and *) 
egister in a consistent state. *) 
IV 64) THEN STATUS := A; 



( C ) 
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I Check the Z flag in the returned status register} 
IF STATUS = 24 THEN BEGIN 

(* File does not exist - attempt to create It *) 

STATUS i= 0; 

HL := LOCATION(Fs : FILEDESC. BUFRC > ; 

DE ;= LOCATIONtF; : FILEDESC. DCBPTRC ) ; 

BC::TWOBYTES.UB : = RECORDLEN; 

EXECUTE := CALLINIT; 

CALL$( LOCATION* EXECUTE) , A , BC f DE , HL, IX , I Y ) ; 

IF NOT ODD(HL DIV 64) THEN STATUS s= A; 

END; 
END; (* else *) 

IF STATUS <> THEN F : : FILEDESC . NAME[ 1 J := CHR(O); 
END {* If not already open *) 
ELSE STATUS s = 130; 
END; (* OPENRAND *) 

PROCEDURE CLOSERANDCVAR F s RANDFILE); 
VAR 

A : BYTE; 

BC, DE, HL, IX, IY s INTEGER; 
BEGIN 

WITH F:: FILEDESC DO BEGIN 

IF NAMEtlJ <> CHR(O) THEN BEGIN (* File is open *) 

(* position to end of file to preserve file size *) 
BC := DCBPTRg.LAST+l; 
DE i= LOCATION* DCBPTRg) ; 
CALL$(|4442,A,BC,DE,HL,IX,IY); 
(* close the file *) 
DE := LOCATION ( DCBPTR§ ) f 
CALL$(|4428,A,BC,DE,HL,IX,IY) ; 
IF DCBPTR <> NIL THEN DISPOSE ( DCBPTR ) ; 
IF BUFR <> NIL THEN DISPOSE! BUFR ) ; 
NAMES 1] t= CHR(O); 
END; 
END; (* with * ) 
END; (* CLOSERAND * ) 

PROCEDURE READRAND(VAR FjRANDFILE; RECORDNUM : INTEGER ; 

VAR DATsREC; VAR STATUS : INTEGER ) ; 
CONST 

CALLPOSN = 'fCD|42|44tF5tEl|C9' ; 
CALLREAD= ' *CD f 36 1 44 1 F5* El|C9 ■ ; 
VAR 

EXECUTE i PACKED ARRAY { 1 . . 6 JOF CHAR; 

A ; BYTE; 

BC, DE, HL, IX, IY : INTEGER; 
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BEGIN 

WITH FtrFILEDESC DO BEGIN 

IF NAME[1] = CHR(O) THEN STATUS := 131 
ELSE BEGIN 

BC := RECORDNUM; 

DE := LOCATION ( DCBPTRg ) ; 

EXECUTE := CALLPOSN; 

CALL$ (LOCATION (EXECUTE), A ,BC,DE,HL, IX, IY) ; 

IF NOT ODD(HL DIV 64) THEN STATUS != A 

ELSE BEGIN 

HL ;= LOCATION(DAT); 
DE := LOCATION < DCBPTRC ) ; 
EXECUTE :^ CALLREAD; 

CALL$( LOCATION (EXECUTE) , A, BC,DE,HL, IX, IY) ; 
IF NOT ODD(HL DIV 64) THEN STATUS := A; 
IF RECLEN = 256 THEN DAT: t FILEBUFFER := BUFR@ ; 
END; 
END; 
END; (* with *) 
END? (* READRAND *) 



PROCEDURE WRITERANDtVAR F: RANDFILE; RECORDNUM : INTEGER; 

VAR DAT j REC; VAR STATUS : INTEGER); 
CONST 

CALLPOSN = , #CD#42#44tF5|El|C9 , ; 
CALLWRITE = ' |CD# 39# 44#F5f Elf C9 ' ; 
VAR 

EXECUTE : PACKED ARRAY (1.. 6 J OF CHAR; 
A ! BYTE; 

BC, DE, HL, IX, IY : INTEGER; 
BEGIN 

WITH FisFILEDESC DO BEGIN 

IF NAMEll] = CHR(O) THEN STATUS !=^ 131 
ELSE BEGIN 

BC := RECORDNUM; 

DE := LOCATION (DCBPTR3); 

EXECUTE := CALLPOSN; 

CALL$( LOCATION (EXECUTE) , A,BC,DE,HL, IX, IY) ; 

* IF NOT ODD(HL DIV 64) THEN STATUS := A 
ELSE BEGIN 

HL := LOCATION (DAT) ; 

IF RECLEN - 256 THEN BUFR3 :=^ DAT: ! FILEBUFFER; 

DE : = LOCATION ( DCBPTR§ ) ; 

EXECUTE := CALLWRITE? 

CALL$ (LOCATION (EXECUTE), A, BC,DE,HL, IX, IY) ; 

IF NOT ODD(HL DIV 64) THEN STATUS :^ A; 

END; 
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END; 
END; {* with *) 
END; (* WRITERAND * ) 
BEGIN (*$NULLBODY* ) END. 

The following is one of our random file test programs. It 
should adequately illustrate the use of random files in an 
application program. 

PROGRAM RANDTEST; 

TYPE Rl = PACKED ARRAY I 1.. 32 J OF CHAR; 

R2 = PACKED ARRAY [1.. 256 J OF CHAR; 

RF1 = FILE OF Rl; RF2 = FILE OF R2; 
VAR FILE1 t RFl; FILE2 g RF2; 

REC1 s Rlf REC2 8 R2; REClA: Rl; REC2A: R2 ; 

I .STATUS : INTEGER; 

PROCEDURE OPENRAND(VAR F s RFl; RECORDLEN : INTEGERS- 
PATHNAME : STRING? VAR STATUS : INTEGER); EXTERNAL; 
PROCEDURE CLOSERAND4VAR F : RFl); EXTERNAL; 
PROCEDURE READRAND(VAR F s RFl; RECORDNUM ; INTEGER; 

VAR DAT s Rl ? VAR STATUS ; INTEGER); EXTERNAL 
PROCEDURE WRITERAND (VAR F s RFl; RECORDNUM i INTEGER 

VAR DAT ; Rl; VAR STATUS t INTEGER); EXTERNAL 

PROCEDURE CHECK(TEST : INTEGER; STATUS : INTEGER)- 
BEGIN 

IF STATUS <> THEN BEGIN 

WRITE(OUTPUT F 'ERROR AT TEST: °,TEST:3); 

WRITELNtOUTPUT, » STATUS= ! ,STATUS:3); 

END; 
END; (* CHECK *) 

BEGIN 

REC1 := ' ABCDEFGHIJKLMNOPQRSTUVWXYZ01234' ; 
OPENRAND<FILEl,SIZE(Rl) ,BLDSTR( » RANDl/DAT : 2 • ) , STATUS) • 
CHECK (1, STATUS) ; 
FOR I := 50 TO 260 DO BEGIN 

REC1[ 1 J s= CHRUI MOD 26) + ORDC'A 1 )!; 

WRITERAND ( FILEl , I , REC1 , STATUS ) ; 

CHECK (2, STATUS) ; 

END; 
CLOSERAND(FILEl) ; 

OPENRAND(FILEl,SIZE(Rl) ,BLDSTR( ' RANDl/DAT x 2 ' ), STATUS) j 
CHECK (3, STATUS) ; 
FOR I := 49 DOWNTO DO BEGIN 

REC1[1) j= CHR((I MOD 26) + QRD('A')); 

WRITERAND(FILEl,I,RECl,STATUS) ; 

CHECK ( 4, STATUS) ; 

END; 
CLOSERAND( FILEl) ? 
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OPENRANDt FILE, SIZE! Rl ) , BLDSTRt 'RAND I /DAT: 2 ' ) , STATUS) 

CHECK ( 5, STATUS) ; 

FECI A := REClr 

FOR I :- TO 2 60 DO REG IN 

REClAlll !=■ CHRUI MOD 26) + ORDI'AM); 

READRANIM FILE1, T , REC I , STATUS ) ; 

CHECK ( 2 , STATUS) ; 

IF RFCl O REClA THEN BEGIN 

WRITELN(OUTPUT, 'READ VERIFY ERROR AT ',1); 
WR I TELN( OUTPUT, R ECU ; 
WR ITEbN( OUTPUT, REC2) ; 
ENDr 
END? 
CLOSERANDl FILED ; 
END. 



Fixinq Physical Filenames Into Pascal Programs 

Alcor Pascal normally prompts the user for physical (names of 
flies on diskette) filenames to be linked to Pascal logical 
(variable filenames In Pascal) filenames when a RESET or REWRITE 
statement Is executed in a program, Pascal stops execution and 
displays the Pascal logical filename on the screen followed by 
the "-" symbol, and waits for a user reply terminated by the ENTER 
key. This is to provide a simple mechanism for filename 
associations. All files in Alcor Pascal are treated the same. 
The obvious advantage Is that the program does not have to be 
recompiled to change the physical filename associations. 

Turning Off The INPUT And OUTPUT Prompts 

To meet the Jensen and Wlrth definition of standard Pascal, 
INPUT and OUTPUT are predeclared. When the program starts 
execution, a RESET on INPUT and REWRITE on OUTPUT is performed 
resulting in prompts to the screen for physical filenames. This 
predeclaration is required so programs written in standard 
Pascal may be compiled and executed on Alcor Pascal without any 
modification. However there are times when a user does not want 
this predeclared feature of Pascal. There Is a compiler option 
that will prevent INPUT and OUTPUT from being predeclared. The 
'irst statement of the program should contain: (*$NO INOUT* ) 
*s a comment. This means that you may no longer use INPUT and 
OUTPUT as predeclared Files. However you may declare them just 
Hke any other file in the VAR section of the program, and 
perform RESET and REWRITE statements on them as desired. The 
only R lde effect is that INPUT and OUTPUT must be Included as an 
^rqument In READ and WRITE statements. 
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To prevent a prompt to the screen from occurring when a file 
is used in a REWRITE or RESET statement requires that a procedure 
call to SET$ACNM be performed sometime prior to the RESET or 
REWRITE statement. The purpose of the SETSACNM call is to 
perform the usual physical to logical filename association. 
The reason for the procedure call instead of a compiler option is 
to allow mixing of SET$ACNM associations with normal file 
declarations that prompt upon the RESET or REWRITE. A word 
of warning. If the parameters for SET$ACNM are not correct, 
(No such physical filename, etc) the SET$ACNM will not be 
performed and a prompt for the physical filename will still 



P 

occur 



The Following Is An Extract From The 1.2A Manuals 



TYPE 

FILENM = PACKED ARRAY (1.. XX J OF CHAR; 
ALPHA = PACKED ARRAY (1.. 8 J OF CHAR; 
(Where XX is any length long enough for the filename) 

PROCEDURE SET$ACNM(VAR F s TEXT; VAR file name t FILENM; 
NAMELENGTH ; INTEGER; VAR FILEID s ALPHA); EXTERNAL; 

SET$ACNM is used to set the name of the physical file or device 
tc be associated with a pascal file. It allows a program to 
compute file names internally. For example, a database program 
may know the name of the file containing the database. This 
procedure allows the program to specify the file name rather 
than requesting it from the keyboard. 

The parameter F can be a file of any type. The external 
declaration of SET$ACNM that is included in the source program 
must specify a type for F that matches the actual file type to 
be used. 

File name is a string containing the text of the file name. 
This string must be compatible with the operating system syntax 
for file names. The physical devices: lineprinter (:L), crt 
(:C) and dummy <;D) may also be used. NAMELENGTH is an integer 
that specifies the length of the file name. 

FILEID is an 8 character string that is used to identify the 
Pascal name for the file, such as INPUT or OUTPUT. 

If SET$ACNM is called prior to a RESET or REWRITE on a file, 
then Pascal will not prompt the CRT for the file name. All 
subsequent RESET or REWRITES will not cause a prompt unless a 
CLOSECfile name) is performed on the file. The file name 
association will remain as previously defined by SET$ACNM, 
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[ 1. . 15 JOF CHAR 
t 1. . 8 JOF CHAR? 



(Example program segment) 

TYPE 

FILENAME - PACKED ARRAY 
ALPHA = PACKED ARRAY 
VAR FNAME : FILENAME; 
FILEID: ALPHA; 
F :TEXT; 
PROCEDURE SET$ACNM<VAR F:TFXT; VAR FNAME : FILENAME ; LEN: INTEGER; 
VAR FILEID: ALPHA) ; EXTERNAL; 
BEGIN 

(* THIS ASSIGNMENT STATEMENT REQUIRES THE NAME TO BE LEFT *) 

(* JUSTIFIED, AND BLANK PADDED TO THE CORRECT ARRAY LENGTH *) 

FNAME:='DATA/TXT:0 ' ; 

FILEID:-' F 

SET$ACNM( F, FNAME , i , FILEID ) ; 

RESET(F) ; 

READ< F,CH); 

(* AND ETC * ) 



A few users have complained that SET$ACNM isn't easy enough to 
use. The following procedure will make the calling sequence 
for SET$ACNM simpler. It may be separately compiled and then 
linked to programs with the linking loader. 



PROGRAM SETACCESS; 

The following procedure makes the SET$ACNM procedure 
easier to use. It may be separately compiled and 
linked to programs that use it 
PROCEDURE SETACNMtVAR F : TEXT; NAME : STRING); 
Arguments are: 

F is a file. The external declaration used 

for this procedure may use any type of file 
NAME is the physical name of the file. The 
string is disposed in this procedure. This 
makes it convenient to use a string constant 
as an argument with no loss of memory. 
TYPE 

ALPHA = PACKED ARRAY[K.8 



FILENAME = PACKED ARRAY! 1. 



OF CHAR; 

501 OF CHAR; 



VAR 



NAMELENGTH : INTEGER; 
FILEID : ALPHA; 
FNAME : FILENAME; 
FUNCTION LEN(S : STRING) 
PROCEDURE SET$ACNM(VAR F 
LEN : INTEGER; 
BEGIN 

NAMELENGTH:=LEN(NAME) ; (determine length of filename} 

IF NAMELENGTH > 50 THEN NAMELENGTH := 50; (stay in array bou 

GETSTR (NAME, FNAME) ; 

FILEID :- 'FILE * ; 

SET$ACNM(F, FNAME, NAMELENGTH, FILEID) ; 



: INTEGER; EXTERNAL; 

i TEXT; VAR FNAME : FILENAME; 

VAR FILEID : ALPHA); EXTERNAL; 



nds ) 



(C) 
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DISPOSE(NAME) ; 
END; 
BEGIN 

<*$NULLBODY *) {No main program} 

END. 

The next example shows a sample of the use of the above procedure, 
s you can see, a call to SETACNM requires only one line. 

PROGRAM EXAMPLE; 

{ a sample of the SETACNM procedure for simple } 

{ specification of fixed file names from a program \ 

TYPE 

DATARECORD = RECORD 
ID s INTEGER; 
{ other stuff J 
END; 

DATAFILE = FILE OF DATARECORD; 
VAR 

DATABASE : DATAFILE; 
PROCEDURE SETACNM(VAR F i DATAFILE? NAME s STRING); EXTERNAL; 
BEGIN 

SETACNM ( DATABASE, BLDSTR( ' DATABASE/DAT: 1 ' ) ) ; 

RESET( DATABASE) ? 

{ do something useful here ) 
END. 

Program Chaining In Pascal 

Programs may be chained together in Pascal- This is 
accomplished by making the standard TRSDOS operating system call 
COMDOS. COMDOS requires a textstring argument that is the text 
of any legal TRSDOS command or /CMD file name. A command 
string may be built in Pascal and passed to COMDOS. The ability 
to perform operating system calls to execute tasks is a very 
important feature of Alcor Pascal, There are many special 
language extensions for the serious programmer that allow 
convenient data manipulation for systems programming. Such 
operators as TYPE TRANSFER are invaluable. The only caution is 
that many system calls may wipe out your Pascal program. Care 
must be taken to prevent a system program from loading on top of 
your Pascal program. Needless to say, results can be 
unpredictable, Program chaining can be accomplished by building 
a string with the appropriate command line for invoking the 
desired Pascal or Basic program. If the called Pascal program 
includes the previously detailed routines for getting command 
line parameters from the system^ command line parameters may be 
passed to the called or chained to program. 

The following program illustrates Pascal program chaining with 
the ability to pass information to the called program on the 
command line. Once invoked, the program will parse the command 
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i ne ^nd look for the ^rampter after the original f llonamp 

f{pWl, The parameter field will have its ASCII value 

j pcr pmpntf»c1, then used as a new command line parameter for 

nother program chaining call. The new call will be to the samp 

rroqram, which will cause a new copy of the program to be 

invoked. This chaining process will continue until the value of 
rn p command line parameter is the ASCII character "A". 

This program simply builds a command line string and places it 
at the address that TRSDOS uses Cor command line storage, The 
COMPOS routine is passed this address for the TRSDOS command 
line string. In this w^y, COMDOS executes the command line just 
3g though it was entered from the keyboard, leaving the command 
line information at the usual memory address for use by the 
program. 

(*$N0 INOUT*) 
PROGRAM TEST; 
CONST 

(•THIS IS THE LOCATION OF THE COMMAND LINE STORAGE*) 
(•BUFFER FOR THE PARTICULAR OPERATING SYSTEM AND *) 
(•COMPUTER COMBINATION. TRSDOS 1 . 3/MODEL III *) 
TRSCMDBUF - 14225; 

(•TRSDOS 1.3 EXECUTE TRSDOS CMD VECTOR ADDRESS *) 
COMDOS - 14299; 
TYPE CMDLINE - ARRAY ( . I . . 64 . ) OF CHAR; 
VAR LINE : CMDLINE; 

STRLINE :STRING; 
BLKI.OC t INTEGER; 
CU ;CHAR; 

PROCEDURE GETCMD(VAR CMD : CMDLINE ) ; 

(*THE PURPOSE OF THIS PROCEDURE IS TO RETREIVE THE COMMAND*) 
(*LINE FROM THE TRSDOS STORAGE LOCATION *) 
TYPE 

POINTER - ^CMDLINE; 
VAR 

BUFPTR: POINTER; 
BEGIN 

(*LOAD THE POINTER ADDRESS WITH THE COMMAND*) 
(•BUFFER LOCATION*) 
BUFPTR: ; INTEGER : -TRSCMDBUF ; 

(•LOAD THE RETURN BUFFER WITH THE COMMAND LINE*) 
CMD:-BUFPTRp; 
END ; 

PROCEDURE EXECUTECMD(CMD: STRING) ? 
TYPE PTRCMDLINE - 0CMDLINE; 
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VAR TRSCMDLOCsPTRCMDLINE; 
I : INTEGER; 

(*THIS PROCEDURE IS IN THE EXTERNAL TRSL1B AND MAY*) 
<*BE LINKED TO WITH THE LINKING LOADER*) 
PROCEDURE USER (ADDRESS; INTEGER j VAR PARMPTR : INTEGER > ; 
EXTERNAL; 

BEGIN 

TRSCMDLOC; t INTEGER j =TRSCMDBUFF; 

(*LOAD THE CONTENTS OF THE DESIRED COMMAND INTO THE*) 

(♦NORMAL TRSDOS COMMAND BUFFER*) 
GETSTR(CMD,TRSCMDLOCe» ; 
I:=64; 

(*ADD A TRAILING CARRIAGE RETURN AS REQUIRED BY TRSDOS*) 
WHILE «TRSCMDLOC@( .1. )=' ' ) DO I:=I-lj 
IF (I>0) THEN TRSCMDLOCg< .1+1. ) :-CHR< 13) ; 

(*CALL COMDOS TO EXECUTE COMMAND*) 
USER ( COMDOS , TRSCMDLOC J t INTEGER ) j 
END; 

(*ALL OF THESE STRING ROUTINES MAY BE LINKED TO IN THE*) 
(*STRING LIBRARY* ) 

FUNCTION LEFT$(S : STRING; POSITION : INTEGER) t STRING; EXTERNAL; 
FUNCTION CHARACTER* S t STRING? POSITION : INTEGER) ! CHAR? EXTERNAL; 
FUNCTION CONC(Sl, S2 s STRINGS : STRING; EXTERNAL? 
FUNCTION CPYSTR(S i STRING) s STRING? EXTERNALS- 
FUNCTION FIND( SUBSTRING, S s STRING) : INTEGER; EXTERNAL? 



BEGIN 

(*GET THE COMMAND LINE FROM THE TRSDOS BUFFER*) 
GETCMD(LINE) ; 

(*BUILD A STRING FROM THE COMMAND BUFFER*) 
STRLINE:=BLDSTR(LINE) ? 

(*FIND THE BLANK THAT SEPARATES THE COMMAND NAME FROM *) 
(*THE COMMAND PARAMETER*) 
BLKLOC:=FIND(BLDSTR( * B ) , STRLINE) ; 

(*GET THE COMMAND PARAMETER CHARACTER*) 
CH;=CHARACTER( STRLINE, BLKLOC+ 1 ) ; 
MESSAGE(CH) ; 
IF(CH>'A' »THEN 
BEGIN 

(* STRIP OUT THE COMMAND NAME FROM THE COMMAND LINE*) 
(*AND PUT A COMMAND PARAMETER THAT IS ITS PREDECESSOR*) 
(*FROM THE ASCII CHARACTER SET*) 
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STRLTNE:-CONC(LEI'T$(STRLINE,BLKLOC) , BLDSTR ( PRED ( CH > ) ) ; 

(♦EXECUTE THIS PROGRAM WITH NEW PARAMETER FIELD*) 
(*ON THE COMMAND LINE*) 
EXECUTECMD ( STRMNE) ; 
END; 
END. 

The procedures EXECUTECMD and GETCMD may be compiled separately 
with the use of the NULLBODY feature and then linked to as 
needed by Pascal programs. The TRSDOS command buffer address 
and COMDOS vector must be changed in the CONST sections for the 
proper operating system and computer combinations. 
They are set up for separate compilation as follows: 

PROGRAM DUMY; 
CONST 

(*THIS IS THE LOCATION OF THE COMMAND LINE STORAGE*) 
(♦BUFFER FOR THE PARTICULAR OPERATING SYSTEM AND *) 
(♦COMPUTER COMBINATION. TRSDOS 1 . 3/MODEL III *) 
TRSCMDBUF = 14 2 2 5; 

(*TRSDOS 1.3 EXECUTE TRSDOS CMD VECTOR ADDRESS *) 
COMDOS = 14299; 

TYPE CMDLINE = ARRAY ( . 1 . . 64 . ) OF CHAR; 
PROCEDURE GETCMD(VAR CMD : CMDLINE) ; 

(*THE PURPOSE OF THIS ROUTINE IS TO RETREIVE* ) 
(*A COMMAND LINE FROM THE TRSDOS STORAGE LOCATION *) 
TYPE 

POINTER = @CMDLINE; 
VAR 

BUFPTRiPOINTER; 
BEGIN 

(*LOAD THE POINTER ADDRESS WITH THE COMMAND*) 
(♦BUFFER LOCATION*) 
BUFPTR: : INTEGER :=TRSCMDBUF; 

(*LOAD THE RETURN BUFFER WITH THE COMMAND LINE*) 
CMD:=BUFPTR@; 
END; 

PROCEDURE EXECUTECMD (CMD: STRING) ; 
TYPE 

PTRCMDLINE = @CMDLINE; 
VAR TRSCMDLOC: PTRCMDLINE; 
I r INTEGER; 

(*THIS PROCEDURE IS IN THE EXTERNAL TRSLIB AND MAY*) 
(♦LINKED TO WITH THE LINKING LOADER*) 
PROCEDURE USER( ADDRESS: INTEGER; VAR PARMPTR : INTEGER ) ; 
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EXTERNAL; 

BEGIN 

TRSCMDLOCs » INTEGER % -TRSCMDBUFF; 

<*LOAD THE CONTENTS OF THE DESIRED COMMAND INTO THE* ) 

<* NORMAL TRSDOS COMMAND BUFFER*) 
GETSTR ( CMD , TRSCMDLOC0 > ; 
I:=64? 

(*ADD A TRAILING CARRIAGE RETURN AS REQUIRED BY* » 

(*TRSDOS** 
WHILE (TRSCMDLOC§(.I. )=' B )DO I:=I-1; 
IF (I>0) THEN TRSCMDLOC§( .1 + 1. > i=CHRU3l» 

(*CALL COMDOS TO EXECUTE COMMAND*) 
USER(COMDOS r TRSCMDLOCi t INTEGER) ; 
END | 

<*ALL OF THESE STRING ROUTINES MAY BE LINKED TO IN THE*) 
(*STRING LIBRARY*) 

FUNCTION LEFT$(S 1 STRING! POSITION i INTEGER) t STRING? 

EXTERNAL! 
FUNCTION CHARACTERS : STRING; POSITION i INTEGER) t CHAR; 

EXTERNAL; 
FUNCTION CONCtSl, S2 * STRING) t STRING; EXTERNAL; 
FUNCTION CPYSTR(S ! STRING) J STRING; EXTERNAL; 
FUNCTION FINDtSUBSTRING, S * STRING) t INTEGER; EXTERNAL; 



BEGIN 

(*$NULLBODY* > 
END. 



Miscellaneous Patches To Change 
Pascal Characteristics 

TRS80 MODEL I and MODEL III 

l BLAISE TEXT EDITOR PATCH (MODEL I AND HI) 

j OPTIONAL PATCH TO CHANGE THE DEFINITION OF THE CLEAR 

I KEY TO "/* . THE SLASH CHARACTER IS GENERATED BY 

J "//" OR BY V7" 

I 

F, ED/CMD, ALCORl 

P,459A,O5AC,000iaF,2F 

P, 45B2,058B,0001,1F, 2F 

W,F4C9 

E 
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: BLAISE TEXT EDITOR PATCH (MODEL I AND III) 

. OPTIONAL PATCH TO CHANGE THE CHARACTER GENERATED BY 

'. "CLEAR 7" FROM "/'* TO "_". 

F, ED/CMD, ALCORl 

P, 144F, 05BO,0001, 2F, 5F 

W, FA50 

E 



OPTIONAL PATCH TO SUPPRESS THE STACK AND 
HEAP USED MESSAGE IN THE LINKING LOADER 

F, LINKLOAD/CMD, ALCOR2 (MODEL I AND III) 

P, 2315,07DB,000 3,21,C3,A9,8C,75, 75 
W,F8 2 5 
E 



TRS80 MODEL I ONLY 



OPTIONAL PATCH TO CHANGE THE DEFINITION OF THE CLEAR 
KEY TO THE SHIFT DOWN ARROW KEY (MODEL I ONLY) 

F r ED/CMD, ALCORl 
Pr459A,05Al,0001,lF,lA 
P,45B2, 0580, 0001, IF, lA 

W,F4DF 
E 
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Using KSM Filters with LDOS 



Some users of LDOS 5.1.2 have reported having trouble using 
KSM filters with the Blaise text editor. The problem is 
related to the use of the "SHIFT CLEAR" key as a prefix to 
editor commands. The optional patch which changes the 
definition of the CLEAR key to the "/" key should fix the 
problem. The use of the CLEAR key does not cause any problems 
if you are using LDOS 5.1.3. 

The use of KSM filters with LDOS can make the Blaise text 
editor much easier to use as well as provide macro command 
capability. A KSM filter may be created which maps the 26 
alphabetic keys to editor commands B Each alphabetic key 
may correspond to a single editor command or to a sequence of 
editor commands. Using a KSM filter, the commands which are 
mapped to alphabetic keys are invoked by holding down the CLEAR 
key while pressing the appropriate alphabetic key. The commands 
are also accessible In the normal manner using "SHIFT CLEAR". 
In the normal accessing of commands, the "SHIFT CLEAR" keys 
should not be held down. They should be pressed and then 
released before pressing the key associated with a particular 
command. 

KSM filters may be created using the LDOS BUILD command or 
a Pascal program can be written to generate the filter. Once 
created, the FILTER command is used to load the filter and 
the SYSTEM command is used to save the new configuration on 
your LDOS system disk. 

Example: BUILD ED/KSM (HEX) 

define keys A --> 2 as prompted 
FILTER *KI TO KSM/FLT USING ED/KSM 
SYSTEM (SYSGEN) 



The following Pascal program is an alternative to using the 
LDOS BUILD command. It generates a file which when loaded as 
a KSM filter will provide new ways of invoking editor commands 
via the 26 alphabetic keys. This is an example of one way to 
configure the keyboard* The program may be modified to configure 
the keyboard in other ways If desired. 
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PROGRAM GENERATELDOSKSMFILTER ; 

BEGIN 

{THIS PROGRAMS CREATES A 26 LINE FILE WHICH MAY BE USED AS 
A KSM FILTER TO ALTER THE WAY COMMANDS ARE INVOKED IN 
THE BLAISE TEXT EDITOR. A COMMAND IS INVOKED BY 
HOLDING DOWN THE CLEAR KEY WHILE PRESSING ONE OF THE 
26 ALPHABETIC KEYS. THE COMMANDS MAY ALSO STILL BE 
INVOKED IN THE USUAL WAY USING <SHIFT> <CLEAR> WHICH 
GENERATES llF. } 



(A) 
(B) 
<C) 
<D) 
(E) 
<F) 
(G) 
(H) 
{1} 
(J) 
<K) 
{L} 

{M} 
(N) 
{0} 
(P) 
<QJ 
( R) 
< S > 
{T} 
<U) 
(V) 
{W} 
(XJ 
(YJ 
U} 
END 



WRITELN( 
WRITELN( 
WRITELN( 
WRITELN( 
WRITELNt 
WRITELNt 
WRITELNt 
WRITELNt 
WRITELN( 
WRITELNt 
WRITELNt 
WRITELNt 

WRITELNt 
WRITELNt 
WRITELNt 
WRITELNt 
WRITELNt 
WRITELNt 
WRITELNt 
WRITELNt 
WRITELNt 
WRITELNt 
WRITELNt 
WRITELNt 
WRITELNt 
WRITELNt 



1FA' ) ; 


(TOGGLE AUTO INDENT) 


1 FB ' ) ; 


(BACK TAB} 


1 FC * ) ; 


(COMMAND MODE J 


1 FD ' ) ; 


(DUPLICATE LINE) 


1FCEXIT;; ' ) ; 


(EXIT AND SAVE) 


IFF' ) ; 


(FIND NEXT} 


1 FG ' ) ; 


(MERGE) 


1FH* ) 7 


(HOME) 


1FI' ) ; 


( INSERT MODE) 


1FCA 66; f ) ; 


(APPEND 66 LINES) 


1FK' ) ; 


(CLEAR TO END OF LINE} 


60#60f60#60f60f60f60#60 f 


, { INSERT 15 BLANK LINES} 


60#60#60#60f60#60#60' ); 


(SHIFT £ GENERATES #60} 


1F#09' ) ,- 


(CURSOR TO END OF LINE) 


1FI08' ) ; 


(CURSOR TO BEG OF LINE) 


1 FO ' ) ; 


(OPEN LINE AT CURSOR} 


1FCW 66 rf 1FCA 66;' ) ; 


{NEXT PAGE) 


1FCHS 1; ' ) ; 


{SCROLL LEFT} 


1 FR ' ) ; 


{REPLACE NEXT) 


1FS' >; 


{SET TAB} 


1FT' ) ; 


{TAB} 


1FCSH0WLINE 1; ' ) ; 


{CURSOR TO TOP OF TEXT) 


1FCSH0WLINE 9999; ' ) ; 


(CURSOR TO BOT OF TEXT) 


1FCHS 17; ' ) ; 


{SCROLL RIGHT) 


1F#0A S ) ; 


(SCROLL DOWN) 


1FY' ) ; 


{CLEAR TAB} 


1FI5B 1 ); 


{SCROLL UP) 



to 
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